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PREFACE 


The  computer  programs  described  in  this  volume  are  the  result 
of  work  done  by  Robert  Montanari,  John  F.  Dolan,  and  Ellen  Laviana 
of  Kentron  International,  Inc.,  Cambridge  MA. 
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PART  Is  COMPOSITE  VOLUME  TRAFFIC  PROFILES  FOR  APM 


1.  INTRODUCTION 

The  aim  of  this  project  was  the  production  of  composite 
daily  traffic  volume  profiles  for  thirty-one  airports.  Tnese 
airports  are  listed  in  Table  1.  The  scheduled  profiles  produced 
for  input  to  the  APM  are  normalized  minute-by-minute  profiles, 
averaged  for  all  days  in  a given  cluster.  Three  clusters  are 
always  used,  although  capability  for  variable  suspension  of 
clustering  has  been  introduced.  Scheduled  profiles  are  generated 
from  extracted  and  sorted  versions  of  OAG  tapes.  Weather  data 
is  used  to  separate  days  for  1972  and  1973  into  VFR  and  IFR  days, 
and  subsequent  calculations  are  carried  out  separately  for  these 
two  sets  of  days.  Volume  distributions  for  scheduled  and  non- 
scheduled  operations  are  obtained  from  tower  data,  and  these 
distributions  are  interfaced  with  output  from  the  clustering 
process  to  produce  cluster  frequencies.  Cluster  frequencies 
are  the  key  to  the  annualization  process,  and  are  used  to 
interface  unambiguously  tower  data  for  two  years  (731  days)  with 
OAG  data  for  one  month  per  quarter.  The  annualization  process 
uses  tower,  weather,  cluster  frequency,  and  clustered  scheduled 
profile  files  to  produce  files  for  input  to  the  APM.  These 
files  are  of  four  kinds:  daily,  header,  annualization,  and 
profile.  All  program  source  files  and  save  files,  as  well  as 
data  files,  produced  in  the  course  of  this  job  have  been  stored 
on  library  tape  4368,  using  TAPE,  and  can  easily  be  retrieved 
from  it.  Program  files  are  also  on  tape  4747. 
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Table  1.  Airports 


BOS 
DCA 
BAL 
EWR 
JFK 
LGA 
I AH 
PHL 
PIT 
I AD 
FLL 
JAX 
MIA 
MKE 
TPA 
ATL 
CLT 
ORD 
DTW 
MSP 
CLE 
STL 

msy 

DAL 


Boston 

Washington  National 

Baltimore 

Newark 

Kennedy 

La  Guardia 

Houston 

Philadelphia 

Pittsburgh 

Dulles  International 

Fort  Lauderdale 

Jacksonville 

Miami  International 

Milwaukee  (Mitchell) 

Tampa  International 

Atlanta 

Charlotte,  N.  C. 

Chicago  (O' Hare) 

Detroit  (Metro  Wayne) 
Minneapolis  - St.  Paul 
Cleveland 

St.  Louis  (Lambert  Field) 

New  Orleans 

Dallas  (Love  Field) 
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Table  1 


(Cont'd) 


DEN 

SLC 

LAX 

SFO 

LAS 

SEA 

HNL 


Denver 

Salt  Lake  City 

Los  Angeles 

San  Francisco 

Las  Vegas  (McCarren) 

Seattle  - Tacoma 

Honolulu  International 
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OAG  PROCESSING 


OAG  processing  was  carried  out  for  two  distinct  sets 
of  tapes:  those  for  January,  February,  and  March  of  1975;  and 
those  for  February,  May,  August,  and  November  of  1972  and  1973. 
Listings  of  programs  referred  to  in  Sections  2.1  and  2.2  comprise 
Appendix  A. 

2.1  1975  OAG 

OAG  data  for  1975  was  used  as  test  data  for  the  profile 
and  cluster  software.  Conversion  of  tapes  from  EBCDIC  to  ASCII 
was  uneventful,  and  extraction  (OAGRD)  and  multi-linear  sorting 
(0AGRD2)  was  carried  out  for  five  airports  - ORD,  BOS,  CLE,  SEA, 
and  MIA  - without  difficulty.  Minute-by-minute  profiles  were 
produced  on  tape,  and  quarter-hour  profiles  on  disk  for  the  five 
airports.  It  was  discovered  that  a list  of  equipment  codes  used 
by  the  profile  generation  program  (OAGPRF)  was  incomplete,  but 
this  did  not  adversely  affect  1975  processing,  whose  only  aim 
was  to  compare  cluster  trees  for  individual  months  with  those 
for  the  quarter.  In  addition  to  operations  profiles,  the  profile 
generation  process  produced  mixes  (for  five  classes)  , hourly 
concentrations  and  arrival/departure  ratios , as  well  as  the  total 
volume  for  each  day.  The  profile  generation  program  is  run  for 
one  month  of  OAG  data  at  a time,  and  requires  two  tape  drives, 
one  for  OAG  input  and  one  for  profile  output.  The  program  also 
uses  a temporary  disk  file  of  variable  size,  its  upper  limit 


being  somewhere  below  2000  blocks.  The  size  of  this  file  depends 
on  the  number  of  OAG  records  being  processed.  Quarter-hour 
• profiles  are  stored  on  disk  for  future  clustering.  Both  tape 

and  disk  output  files  are  unformatted.  When  testing  was  being 
carried  out  for  1975,  disk  output  for  all  airports  was  written 
to  a single  file  for  each  month.  These  were  named  JAN75.DAT, 
FEB75.DAT,  and  MAR75.DAT.  Their  further  adventures  are  described 
in  Section  3.1. 

2.2  1972  and  1973  OAG 

OAG  tapes  for  1972  and  1973  are  7-track  BCD  with  three, 
or  sometimes  four,  of  these  tapes  containing  the  records  for 
each  month.  OAG  data  for  these  two  years  is  currently  available 
for  one  month  per  quarter.  Record  length  varies  from  month 
to  month,  but  is  generally  fixed  within  each  month.  These  tapes 
were  converted  to  ASCII  with  output  for  all  of  the  input  tapes 
for  a month  going  to  one  output  tape  with  three,  or  sometimes 
four,  files.  November  1973  has  four  files,  and  May  1973  was 
expected  to  have  four  files.  Conversion  problems  necessitated 
discounting  one  of  the  May  files.  The  number  of  records  lost 
is  assumed  to  be  quite  small;  even  without  this  file,  May  1973 
has  more  records  than  any  other  of  these  eight  months.  Table  2 
records  the  total  number  of  OAG  records  extracted  for  each  of 
the  eight  months  for  thirty-one  airports. 
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Table  2.  PAG  Records  Extracted  for  31  Airports 


Month 


February  '72 
May  '72 
August  '72 
November  '72 
February  '73 
May  '73 
August  '73 
November  '73 


' 


No.  of  Records 
14931 
14857 
15790 
15369 
15476 
16913 
16190 
15131 
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Extraction  and  multi-linear  sorting  were  done  for 


■ 


\ 


thirty-one  airports  for  each  month.  OAGRD  extracts,  from  the 
several  files  on  the  converted  OAG  tape,  records  which  are 
either  arrival  or  departure  records  for  one  of  the  listed 
airports,  and  writes  a single  file  on  an  output  tape.  0AGRD2 
then  performs  a multi-linear  sort  of  the  extracted  records, 
and  writes  to  an  output  tape  separate  files  for  each  of  the 
thirty-one  airports.  This  map  from  extracted  records  to 
sorted  records  is  not  one-to-one,  as  any  record  for  which 
the  arrival  and  departure  airports  are  both  on  this  list,  is 
written  to  two  files  on  the  output  tape.  This  was  the  case 
for  about  one-third  of  the  extracted  records . Table  3 contains 
an  example  of  this  process  for  May  1972. 

By  the  time  profile  production  was  begun  in  earnest, 
a number  of  changes  had  been  made  in  OAGPRF . Tape  requirements 
were  the  same  as  for  1975  (See  Section  2.1),  and  a temporary 
disk  file  was  still  being  used.  Mix  classes  had  been  expanded 
to  eight,  and  a complete  listing  of  equipment  codes  provided 
(See  Table  4) . Any  equipment  code  not  listed  is  assumed  to  be 
for  a small  aircraft  (class  7) , and  in  fact  class  7 codes  are 
not  even  listed  in  the  program. 

Quarter-hour  profiles  are  still  written  to  disk,  but 
a separate  disk  file  is  written  for  each  airport.  See  Table  5 
for  the  naming  convention  used  for  these  files . Eight  quarter- 
hour  files  are  produced  for  each  of  the  31  airports.  Section  3.2 
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Table  3.  Multi-linear  Sort  for  May  1972 


Input  records  = 14857 


airport 

extracted  rec ' s 

BOS 

840 

DCA 

758 

BAL 

323 

EWR 

609 

JFK 

1413 

LGA 

920 

IAH 

458 

PHL 

728 

PIT 

674 

IAD 

213 

FLL 

233 

JAX 

151 

MIA 

901 

MKE 

241 

TPA 

329 

ATL 

1182 

Total  output  records  = 19820 


airport  extracted  rec 1 s 


CTL 

196 

ORD 

1995 

DTW 

593 

MSP 

431 

CLE 

464 

STL 

587 

MSY 

387 

DAL 

852 

DEN 

541 

SLC 

193 

LAX 

1478 

SFO 

1014 

LAS 

259 

SEA 

456 

HNL 

401 
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Table  4.  Assignment  of  Equipment  Codes  to  Aircraft  Classes 


Class 

1 - 4 -engine, 

wide  body  - 747,  74F 

Class 

2 - 4 -engine, 
DC8,  707, 
990,  B2F, 

standard  and  stretched  - D8S , 
SSC,  Y76 , GAL,  T44,  STV,  V10, 
B7F 

D8F , 
SUV, 

B3F, 

720, 

Y62, 

880, 

Class 

_3  - 3-engine, 

wide  body  - D10,  L10 , A3B 

Class 

4 - 2 -engine, 
73S,  VL3, 
D9F,  FFJ, 
D95,  J6 

standard  and  stretched  - 111, 
VL6,  CVS,  CVF,  CVL , J60,  FAL, 
F28,  HAN,  HSJ,  LJT,  T24,  T04, 

BAC, 
DME , 
T34, 

Sll, 
DC9 , 
VF6 , 

737, 

D9S, 

JET, 

Class 

5 - 3-engine, 
— TRD,  TIC, 

standard  and  stretched  - 72S, 
TIE,  T2E,  T3B,  Y40,  T54 

727, 

72F, 

CM4  , 

Class 

6 - large  turbo-prop,  piston  - AVS,  AVR,  AV 
BRF,  C44 , CL,  CV2 , C2,  CV3 , C3,  CV4 , C4 

, MER 
, CV5 

, ME, 

, C5 , 

VAN, 
CV6 , 

CVR,  Al,  A2 , A12,  A24,  A02,  AN,  A10,  A22,  A26,  ARE,  CV, 

PCU,  CU,  DBV,  B2,  PDS , DS,  DHC , DHF,  DC3 , D3 , DC4 , D4 , 

DC6,  D6 , D6A , 6A,  D6F,  D6B , 6B,  D6C , DC7 , FPR,  F27, 


F7 , FH7 , FH,  PGU,  GU , 748,  AO,  Y14,  Y4 , Y18,  Y8 , LEC , 
LE,  LHE , LXA,  PHR,  HR,  MR4 , M4 , Y51,  YS , N26,  N2,  NAT, 
T14 , T4 , VIS,  W,  VE,  V70,  V80,  V8 , YK2 , Yll,  SU , A5 , 
CO,  N2 

Class  7 - small  aircraft  - AL6 , A50,  A5,  ACD,  AD,  B99,  B9 , BBR, 
B8,  TB8 , TB,  B80,  BQ,  ATI,  C45,  BDE , B18,  B8,  TBH , 

BON,  BW,  BBO,  BTP , BT,  BC4 , B30,  BRF,  BRT,  BR,  BN1 , 

BN,  BNT , CAR,  CR,  CES , CE,  PCB,  CB,  DDV,  DO,  DDR,  HRN , 

HH,  DHO,  OT,  PR4,  R4 , PTD , TD,  DTO,  TO,  DTB,  D28,  DR, 

C82 , GGS,  GG,  GGM,  GM,  GW1,  GW,  GSA,  PHA,  HA,  HLD,  HD, 
PHP,  HP,  COV,  L4T,  LIS,  MMB,  MVZ , L60 , L20,  L41,  P1A, 
PP6 , PC,  PAP,  PA,  PAZ,  PZ,  PCH,  CH,  PNV,  PN , PTC,  PT, 

PPS,  PS,  SKV,  SV,  PSM,  SM,  TC4 , TC,  TPR,  PRP,  ZZ,  601, 

402,  TS4 , SWM,  ST2,  MV2 

Class  8 - other  - helicopters  and  hovercraft  - ALO,  AL,  AB4,  AB2 , 
205,  SA3,  VT7 , HOV,  KH4 , S34,  S61,  SI,  S55,  S58,  PS4 , 

S4 , 47J , JR 
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Table  S.  Naming  Convention  for  Quarter-hour 
Profile  Eiles  for  1972  and  1973 


TLC  = a three-letter 
Month  Name 

February  '72 
May  '72 
August  ' 72 
November  '72 
February  '73 
May  '73 
August  ' 7 3 
November  '73 

merged  8 months 


code 

of  quarter-hour  file 
TLC21 
TLC  2 2 
TLC  2 3 
TLC  2 4 
TLC  31 
TLC  3 2 
TLC  3 3 
TLC34 

TLCPM 
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records  the  rest  of  their  history. 


In  addition,  minute-by-minute  profiles  now  record 
arrivals  and  departures  separately,  and  peaking  factors  are 
calculated  for  each  day,  for  later  conversion  to  a peaking 
factor  for  the  year.  For  a more  detailed  discussion  of  running 
the  profile  generation  program,  see  Section  7.1. 


1 


3. 


CLUSTERING 


For  the  purposes  of  this  report,  clustering  can  best 
be  regarded  as  a process  for  assigning  the  elements  of  a set 
into  smaller  subsets  with  the  property  that  any  element  of  a 
subset  is  more  similar  to  the  rest  of  the  elements  in  its 
subset  than  it  is  to  the  elements  in  the  other  subsets.  In 
line  with  this,  the  "clusters"  here  discussed  are  merely  sets 
of  days  for  a given  airport  with  traffic  profiles  similar  in 
shape.  In  all  cases,  normalized  data  was  clustered,  and 
therefore  differences  in  volume  levels  do  not  affect  the 
clustering  as  used  here.  Comparisons  of  clustering  for  normalized 
vs.  raw  data  for  1975  showed  differences  in  threshold  values 
but  not  in  cluster  assignment. 

Existing  software  for  hierarchical  clustering  was  used 
to  analyze  OAG  traffic  profiles  for  1975  by  producing  dendrograms 
("trees")  to  be  examined  by  the  initiator.  This  software  is 
described  in  detail  in  report  KHL-TSC-76-1396  (Cluster  Analysis 
Programs)  dated  April  20,  1976.  In  addition,  software  was 
developed  for  plotting  individual  daily  operations  profiles 
and  clustered  profiles.  Further  modifications  of  the  cluster 
software  consisted  of  the  addition  of  a routine  to  suspend 
clustering  at  three  clusters,  and  a more  sophisticated  routine 
to  provide,  as  an  option,  variable  suspension  of  clustering. 
Production  of  dendrograms  was  not  desired  for  1972  and  1973. 

Programs  mentioned  in  (the  following)  Sections  3.1 
and  3.2  are  listed  in  Appendix  B. 
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3 . 1 1975  Clustering 

Clustering  was  performed  separately  for  each  of  the 
quarter-hour  profile  files  JAN75.DAT,  FEB75.DAT,  and  MAR75.DAT, 
and  dendrograms  were  produced  (program  PCLUST) . The  data  on 
these  three  files  was  then  merged  by  PRFMRG,  and  clustered. 

Four  trees  for  each  of  the  five  airports  were  given  to  the 
initiator,  and  it  was  decided  that  three  clustered  profiles 
would  be  adequate  to  represent  traffic  profiles  at  any  airport. 
Figure  1 provides  an  example  of  a dendrogram. 

In  addition  to  the  trees,  a selection  of  plots  of 
daily  profiles  and  of  clustered  profiles,  produced  by  program 
PRFPLT,  was  provided  the  initiator.  On  the  basis  of  the 
appearance  of  these  plots,  it  was  decided  that  correlation 
coefficients  would  provide  a good  measure  of  the  validity  of 
using  one  month  of  OAG  data  to  represent  each  quarter.  A 
program  (CORAL)  was  written  to  correlate,  for  each  of  the 
five  airports  used  in  1975  calculations,  three-month  clusters 
with  February  clusters,  February  clusters  with  each  other,  and 
days  from  the  three-month  period  with  the  February  clusters. 
These  correlations,  as  expected,  were  quite  good.  Figure  2 
is  a sample  of  the  output  of  the  correlation  program. 

3.2  1972  and  1973  Clustering 

For  1972  and  1973,  no  clustering  of  individual  months 
was  required.  PRFMRG  merges  up  to  eight  monthly  quarter-hour 
profile  files  into  a single  file  for  each  of  the  airports. 
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The  profiles  are  then  clustered  by  CLUSTR,  which  optionally 
prints  the  trees,  and  optionally  saves  them  on  tlcST.DAT  for 
future  reference.  CLUSTR  also  writes  a disk,  file,  named  from 
the  three-letter  code  tic,  tlcCL.DAT,  which  contains  a cluster 
number  for  each  day  on  the  input  file,  and  a list  of  the  total 
daily  volumes  for  each  day  on  that  file.  File  tlcCL.DAT  is 
later  used  to  produce  cluster  frequencies  (See  Section  6.0). 

Once  the  cluster  assignments  have  been  made,  AVGPRF 
is  run  for  each  of  the  profile  tapes.  This  program  adds  data 
for  each  day  to  the  appropriate  cluster  and  writes  these 
partially  clustered  profiles  to  a disk  file.  See  Table  6 for 
the  naming  convention  for  these  files.  AVGMRG.F4  then  merges 
them  and  computes  averages  for  each  cluster  for  all  averageable 
quantities . 

When  clustering  was  begun  for  1972-73  data,  it  was 
found  that  these  clusters  did  not  behave  as  expected.  It  was 
then  decided  by  the  initiator  that  only  1973  OAG  data  would  be 
used.  Files  written  by  AVGPRF  were  given  the  last  four  tags 
in  Table  6,  and  these  four  files  averaged  by  AVGMRG . 


Table  6.  Naming  Convention  for  Files  of  Clustered  Profiles 


TLC  = three-letter  code 


Month 

February  '72 
May  1 7 2 
August  '72 
November  *72 
February  '73 
May  '73 
August  '73 
November  '73 


File  Name 
TLC01 
TLC  02 
TLC  03 
TLC  04 
TLC05 
TLC  06 
TLC07 
TLC08 


merged  file 


TLCCP 


WEATHER  DATA  PROCESSING 


A TDF-14  tape  containing  ceiling  and  visibility  data 
for  30  stations  for  the  years  1970-1974  was  first  converted 
from  EBCDIC  to  ASCII . Figure  3 provides  a sample  of  the  data 
on  this  tape.  Data  for  1972  and  1973  were  then  extracted  by 
EXTWEA  and  written  to  tape.  Data  on  this  tape  consisted  of 
eight  observations  per  day  of  ceiling  and  visibility  for  each 
day  of  the  two  year  period.  Eight  formatted  records  were 
thus  required  for  each  day  at  each  station,  a total  of  175,438 
records  in  all  (two  fewer  than  expected  - see  below) . 

Program  WEACOM  was  then  used  to  compact  this  ceiling 
and  visibility  data,  and  to  write  data  for  each  station  on  a 
separate  file  on  an  output  tape.  This  program  also  blocked  in 
two  missing  records  for  station  24233  (Seattle)  for  December,  1972. 

In  general,  TDF-14  tapes  display  a deplorable  tendency 
to  be  missing  records,  and  sometimes  to  have  extra  records. 

The  only  information  provided  regarding  these  missing  records 
is  the  months  within  which  they  occur , and  this  only  in 
the  form  of  a monthly  record  count.  A closer  examination  of 
the  data  on  these  tapes  than  was  deemed  necessary  for  the 
purposes  of  this  project  would  be  required  to  establish  the 
precise  locations,  or  rather  times,  of  these  missing  observations. 

Fortunately,  the  two  missing  records  for  Seattle  were 
the  only  lacunae  in  the  1972  and  1973  data  for  the  thirty 
stations  used.  Numerous  other  anomalies  were  observed  in 
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Figure  3. 


Sample  of  TDF-14  Data 
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record  counts  for  1970,  1971,  and  1974  data,  which  were  also 
included  on  the  original  TDF-14  tape.  Record  counts  for  tapes 
of  10  years  of  weather  data,  1955-1964,  also  examined  for 
this  project,  revealed  hundreds  of  gaps. 

The  compaction  procedure  produced  one  record/day  for 
each  station,  unformatted.  These  records  were  then  read  in  by 
program  VFRIFR,  which  made  a list  for  each  station  of  which 
days  were  VFR  and  which  w«re  IFR.  This  is  simply  a list,  for 
each  station,  with  731  entries,  each  a 0 or  a 1.  IFR  weather 
is  indicated  by  a 0;  VFR  weather  by  a 1.  This  program  also 
assigned  the  appropriate  three-letter  airport  code  to  each 
station,  heretofore  identified  only  by  a station  number,  and 
wrote  the  airport  code  and  the  VFR/IFR  list  as  one  logical 
record  on  an  unformatted  disk,  file  named  from  the  three-letter 
code,  tlcWE. 

A list  of  station  numbers  and  the  corresponding  airport 
codes  is  found  in  Table  7.  Figure  4 is  a sample  of  the  content 
of  a weather  file. 

The  reader  may,  by  now,  have  noticed  that  while  traffic 
profiles  were  generated  for  thirty-one  airports,  weather  data 
was  received  for  only  thirty.  Comparison  of  the  list  of  stations 
(Table  7)  with  the  list  of  airports  (Table  1)  reveals  that  it 
is  indeed  Fort  Lauderdale  which  is  missing  from  the  weather  tape. 
Consultation  with  the  initiator  further  revealed  that  this  was 
an  expected  deficiency.  Miami's  weather  was  chosen,  by  reason 
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Sample  Weather  File 
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of  spatial  disposition,  as  the  best  available  approximation 
to  Fort  Lauderdale's,  and  a copy  of  Miami's  weather  file  was 
made  with  HFLL"  substituted  for  "MIA". 


Listings  of  the  programs  discussed  in  this  section 
are  to  be  found  in  Appendix  C. 


5.  TOWER  DATA  PROCESSING 

Tapes  of  FAA  form  7230.1  (tower  data)  were  received 
for  1972  and  1973,  four  BCD  tapes  per  year.  These  were  converted 
to  ASCII  and  data  for  thirty-one  airports  extracted.  This 
extraction  was  done  by  TOWRD  for  1972,  and  TOWRD3  for  1973. 

The  only  difference  between  these  two  programs  is  the  contents 
of  a list  of  the  locations  of  the  desired  airports  on  the  tower 
data  tapes.  These  lists  were  different  because  in  1972,  347 
airports  filed  form  7230.1  with  the  FAA  and  in  1973,  353  did. 

No  identification  is  made  on  these  tapes  of  airports,  and  there 
is  no  demarcation  between  data  for  different  airports.  Instead, 
a separate  directory  is  provided  on  punched  cards  and  listing. 

Eight  disk  files  were  written  by  the  tower  extraction 
programs.  TOWRD  wrote  TW721.DAT,  TW722.DAT,  TW723.DAT,  and 
TW724.DAT.  TOWRD 3 wrote  TW731.DAT,  TW732.DAT,  TW733.DAT,  and 
TW734.DAT.  In  other  words,  a separate  disk  file  was  produced 
for  each  input  tape.  These  files  include  the  three-letter  codes 
for  the  airports,  and  are  unformatted  with  one  logical  record 
per  airport. 

These  files  were  merged  pairwise  by  TOWMRG,  which  takes 
two  input  files,  one  for  1972  and  one  for  1973,  and  writes  one 
file  for  each  airport  with  1972  and  1973  data  merged.  These 
output  files  are  named  tlcTW.DAT , 

Next,  program  TOWER  separates  tower  traffic  for  VFR 
and  IFR  days;  calculates  non-scheduled  mixes  for  each  day; 
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computes  scheduled  and  non-scheduled  volume  distributions; 
assigns  days  to  "boxes"  on  the  basis  of  their  scheduled  and 
non-scheduled  volumes;  calculates  average  volumes  and  mixes  for 
each  "box";  and  computes  two-year  means  for  air  carrier,  air 
taxi,  general  aviation,  and  military  traffic. 

Input  files  for  TOWER  are  tlcTW.DAT  and  tlcWE.DAT. 

Two  output  files  are  produced.  File  tlcTO.DAT  contains  two- 
year  means  for  AC,  AT,  GA,  and  MIL  traffic,  and  for  non-scheduled 
mix  (one  record);  for  VFR  and  IFR  days,  number  of  scheduled 
distribution  levels,  number  of  non-scheduled  distribution  levels, 
number  of  days  in  each  "box",  and  averages  for  scheduled  and 
non-scheduled  volumes  and  non-scheduled  mix  for  each  "box" , 
and  scheduled  and  non-scheduled  distribution  intervals  (two 
logical  records  - one  IFR,  one  VFR) . File  tlcIV.DAT  contains 
the  number  of  VFR  and  IFR  days,  and  scheduled  distribution 
intervals . This  file  is  intended  for  use  by  the  cluster  frequency 
program  (See  Section  6.0). 

Programs  discussed  in  this  section  are  listed  in 
Appendix  D. 
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OAG  - TOWER  INTERFACE 


The  key  to  the  interface  between  OAG  data  and  tower 
data  is  provided  by  CLSFRQ , a program  which  calculates  cluster 
frequency.  Given  an  upper  bound  and  a lower  bound  for  volumes, 
a cluster  frequency  is  simply,  for  the  days  whose  OAG  traffic 
volume  falls  between  the  lower  bound  and  the  upper  bound,  the 
fraction  of  those  days  which  belong  to  a given  cluster.  CLSFRQ 
reads  cluster  assignments  and  daily  volumes  from  tlcCL.DAT, 
and  scheduled  volume  intervals  from  tlcIV.DAT  and  computes 
cluster  fractions  (frequencies) . 

Once  the  cluster  frequencies  have  been  calculated, 

APMFG  can  be  run.  This  program  reads  from  files  tlcCP.DAT 
(written  by  CLUSTR) , tlcTO.DAT  (written  by  TOWER),  and  tlcCF.DAT 
(written  by  CLSFRQ) , and  generates  files  to  be  read  by  the 
Airport  Performance  Model  (APM) . 

The  output  files  are  tlcDF.DAT  (daily  file),  tlcHF.DAT 
(header  file) , tlcAF.DAT  (annualization  file) , and  tlcPF.DAT 
(profile  file)  . Table  8 provides  a detailed  description  of  the 
structures  of  these  files. 

Programs  discussed  in  this  section  are  listed  in 
Appendix  E . 
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Table  8. 


Structures  of  Files  for  Input  to  APM 


1. 


tlcDF.DAT 

daily  file  record 
record 

24X- 

record 

record 

WTHR  default  is  24  x 


(1)  - Vg,  VN,  MIXn(8),  WTHR (24) 

(2a)  - Hour  (=1,24),  Mix£(8),  A/Dh, 
(2b)  - ARRh,  DEPh 
(2c)  - p£  (60,2) 

1 = VFR. 


CONCENh 


2.  tlcHF.DAT 
header  file 


record 

record 


(1)  tic, 

(2)  VXC, 


PF,  NV,  N*  NRUNS 
D 

VV 

VAT ' VGA ' VMIL ' AC' 


'MIL 


3.  tlcAF.DAT 

annualization  record  (1)  NRUNS (box) [ h 3 ) , nw  n.  , n3 
file 

record  (2)  Vg(box),  VN(box),  MIXN (box) (8) , 
IFR/VFR ( 0/1 ) 

record  (3a,b,c)  {n.^  (run  #),  Pi (profile  #=1,2,3), 
(box) } , i = 1 , 2 , 3 


4 . tlcPF . DAT 

profile  record  (1)  profile  number  =1,  2,  3 

file  *h 

record  (2a)  Hour(=l,24),  MIX_  (8) , A/D  , 

b 

3X  24x  CONCEN*h 

record  2B)  ARR*h,  DEP*h 
record  (2c)  P*h  (60,2) 

b 

All  files  are  unformatted.  Each  line  corresponds  to  one  logical 
record. 


1-27 


Two  kinds  of  changes  are  possible  in  the  data  base 
generated  for  the  APM:  1)  expansion  by  adding  data  for  additional 


airports  for  1972-1973,  2)  use  of  data  for  some  other  year  or 
years.  The  following  sections  provide  a detailed,  though  not 
necessarily  complete,  description  of  program  modifications  and 
production  runs  that  would  be  required  to  make  either  of  these 
changes . Table  9 lists  the  source  data  that  was  used  in 
preparing  APM  files  for  1972-73. 

7.1  PAG 

OAG  tapes  are  required  for  one  month  of  each  quarter 
of  a year  or  years.  If  the  72-73  data  base  is  being  expanded 
to  include  other  airports,  the  OAG  tapes  listed  in  Table  9 
are  the  ones  that  will  be  needed.  If  another  year  is  being 
done  another  set  of  tapes  will  be  needed. 

OAGRD  will  be  run  for  each  OAG  tape.  If  the  list  of 
airports  is  not  the  same  as  the  list  in  the  program,  it  will 
be  necessary  to  make  the  following  changes: 

Dimension  AN  and  ANS  as  the  number  of  airports  on  the 
list,  and  substitute  that  number  for  31  in  the  statement 
"IF  (NA.NE.31)  go  to  ...".  Substitute  the  list  of  airports  for 
those  in  the  statement  DATA  ANS/'BOS',  ...,  'HNL'/»  make  the 
same  changes  in  OAGRD 2 , and  OAGPRF . If  the  same  list  of  airports 
for  a different  year  is  being  used,  no  changes  are  required. 
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Table  9.  Tapes  With  Source  Data  (ASCII) 


PAG 

Month 

Reel  ID 

Blocksize 

# Files 

Assigned  To 

• 

Feb.  1972 

4465 

2100 

3 

CONDELL 

May  1972 

4466 

2200 

3 

It 

• 

Aug.  1972 

4467 

2200 

3 

II 

Nov.  1972 

4620 

2200 

3 

II 

Feb.  1973 

4370 

2200 

3 

II 

May  1973 

3787 

2200 

3 

II 

Aug.  1973 

4752 

2200 

3 

II 

Nov.  1973 

4762 

2200 

4 

II 

Tower  Year 

Airports 

Reel  ID 

Blocksize 

Assigned 

To 

1972 

1-100 

2615 

540 

CONDELL 

1972 

101-200 

2622 

540 

it 

1972 

201-300 

2623 

540 

it 

1972 

301-347 

0035 

540 

n 

1973 

1-100 

0075 

540 

it 

1973 

101-200 

0167 

540 

n 

1973 

201-300 

0202 

540 

ti 

1973 

301-353 

0460 

540 

it 

Weather 

Years 

Reel  ID 

Blocksize 

Assigned 

To 

1970-1974 

0468 

625 

CONDELL 

1972-1973 

0467 

625 

II 
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One  run  of  OAGRD  will  be  made  for  each  month  of  OAG 
data.  This  program  reads  a specified  number  of  files  from  an 
input  tape  and  extracts  those  records  whose  arrival  or  departure 
codes  are  on  the  list  of  airports.  An  available  option  is  to 
type  in  a list  of  airport  codes  rather  than  extract  records 
for  all  of  the  airports  on  the  list. 

Figure  5 is  a sample  batch  control  file  for  OAGRD 2 , 
and  Figure  6 part  of  its  log  file.  The  input  is  similar  to 
that  for  OAGRD.  In  this  example,  fourteen  of  the  airports 
have  already  been  sorted,  and  these  files  are  skipped  on  the 
output  tape.  Since  fewer  than  31  airports  are  left  to  be  sorted, 
a list  is  read  in  of  those  remaining.  This  feature  is  useful 
in  the  event  of  system  crashes,  parity  errors,  hung  devices  or 
other  misfortunes  which  may  occur  during  program  execution,  as 
only  the  output  for  the  airport  being  sorted  out  at  the  time 
is  lost.  OAGRD 2 also  produces  a disk  file  called  F0R21.DAT, 
which  lists  the  number  of  records  written  for  each  airport. 

This  file  was  historically  significant,  but  no  longer  has  a 
function.  An  example,  produced  by  the  run  in  Figure  5,  is 
given  in  Figure  7.  The  same  is  true  for  OAGPRF . Batch  control 
files  for  this  program  are  shown  in  Figures  8 and  9.  Figure  8 
is  for  a complete  run,  Figure  9 for  a partial  run.  Note  that 
files  are  skipped  on  both  input  and  output  devices.  If  the 
files  on  the  input  tape  are  not  arranged  in  the  same  order 


JF (ERROR  > .REQUEUE 


.1#  KJA'llI  lM  Vi  l^I^T  ¥>T  *'RWA»l‘l 


IF (ERROR)  .REQUEUE 
or  u t urn  . a i 


, REMIND  171 

.SET  BLOCKS lii  l&XlWZ  - 
.SET  BLOCKS ] ZE  1712200 


Kl  IIJBli 


,R  JOBCOS 

4 a • Afl 


,EX  0ACH02 


TRA,ATL.CLT,ORD,OTW,HSP#cLF.STL.MSV,DAL.nEN,SLC.LAX,SFO,LAS|SEA,HNL 


18103 


pi.T  T4.IJ 

MM 


.01 S^OUNT  17« 


Figure  5.  Sample  OAGRD2  Batch  Control  File 


01*31158  MOnTR 
01  * 31  > 58  MOMR 
01 : 32 i 00  MOnTR 
01  *32*00  MOnTR 
01*32*20  M(KTR 
01*32*00  MOnTR 
01*32*02  MONTR 
01*32*02  MOnTR 
01*32*26  MONTR 
01*32*26  M0ntR 
01*32*26  USE « 
01*32*28  LSn< 
01*32*28  USE*, 
01*32*28  USEH 
01*32*28  US£K 
01*32*28  UScw 
01*32*29  USE  ' 
01*32*29  USEK 
01*32*29  MOnTR 
01*32*29  MOnTR 
01*32*29  MOnTR 
01*32*31  USER 
01*32*37  USE* 
01*32*37  USER 
01*32*37  USER 
01*32*38  USER 
01*32*38  USER 
01*32*38  USER 
01*32*38  USER 


..REWIND  17* 

..SET  BLOCKSI2E  16*2200 
..SET  BlOC*SI2E  17*2200 
..SKIP  17*14  TILES 
,,R  JOBCOS 


LOGIN  Time  (EXAMPLE-  16*05)  * 18100 
CONNECT  cost  * s 00.0? 

CPU  COST  s \ 00.11 

DISK  ACCESS  COST  * J 00.05 

ESTlMATEr  DISK  STORAGE  4 LPT  CnSTS  * S 00.0? 

ESTIMATED  TOTAL  COST  s S 00.00 

EXIT 

. . .EX  OAGR 02 
LOAOINC 

0AGR02  2K  CORE 
EXECUTION 

HOW  MANY  AIRPORTS? 

17 


01*32138 

81*32*38 

01*32138 

01*32138 

01*32*38 

01*32*38 

01*32*38 

01*32*38 

01*35*15 


USER 

USER 

USER 

USER 

USE'. 

USER 
USER 
USE  t 
USER 


NAME  AIRPORTS  - 3 LETTER  COOES  - NU3.1X) 

TPA.ATL.CLT.ORO.OTW.MSP.CL  E.STL.MST.OAL.IEN.StC.t.  AX.JFO.LA 

Input  tape  device  number? 

16 

OUTPUT  Tape  DEVICE  NUMBER? 

17 


01*36*13 

USER 

for  tpa,  records 

f XTRACTFD 

2 

331 

01*36*13 

US£K 

RECORDS  READ  * 

163  90 

01*37*06 

USER 

RECORDS  s 20000 

01*44*02 

user 

RECORDS  * 30000 

01*44*55 

user 

E OR  ATL.  RECORDS 

fxtracteo 

r 

1350 

01*44*55 

user 

RECORDS  READ  x 

16193 

01*47*58 

user 

RECORDS  t 40000 

01*49*55 

USER 

Tor  CL t . RECORDS 

FXTRACTEO 

s 

220 

01*49155 

USER 

RECOROS  READ  * 

16190 

01*51*22 

USER 

RECORDS  : 50000 

01*57*50 

USER 

RECOROS  t 60000 

02*00*23 

USE-. 

TOR  ORO,  RECORDS 

fxtracteo 

3 

2176 

02*00*23 

user 

RECOROS  READ  * 

16190 

02*01*40 

USER 

RECOROS  x 70000 

02*04*49 

USE  I 

RECORDS  s 80000 

02*05*03 

USER 

For  OTW,  RECORDS 

FXTRacTFO 

3 

646 

02*05103 

USER 

RECOROS  READ  * 

16190 

02*06*58 

user 

RECOROS  ■ 90000 

02*08*31 

user 

FOR  MSP.  RECOROS 

extracted 

= 

427 

02*08*3? 

USER 

RECOROS  READ  s 

16190 

02*09*16 

user 

RECOROS  : 130000 

02*10147 

user 

RECORDS  s 110000 

Figure  6.  Sample  0AGRD2  Batch  Log  File  f 
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331 


FOR  TPA,  RECORDS  EXTRACTED  a 

records  reap  • 14490 — 

for  ATL,  RECORDS  EXTRACTED  a 1150 

RECORDS  READ  ■ H>49fl 

FOR  COT,  RECORDS  EXTRACTED  a 228 

RECORDS  READ  a 46+90 

FOR  URD,  RECORDS  EXTRACTED  a 2170 

RECORDS-  READ  a 4619a 

FOR  DTW , RECOPDS  EXTRACTED  a 646 

RECORDS  READ  a 444-90 

FOR  MSP,  RECORDS  EXTRACTED  a 427  ' 

RECORDS  READ  * KHfl 

FOR  CLF,  RECORDS  EXTRACTED  a 484 

RECORDS -READ  ■ 16190 

FOR  STL,  RECORDS  EXTRACTED  a 659 

RECORDS  READ  a f649o 

FOR  MSY,  RECORDS  EXTRACTED  a 368 

RECORDS  - READ— a R6 4 9o 

10R  DAL,  RECORDS  EXTRACTED  a 1010 

RECORDS  READ  a 44490 

FOR  DfN,  RECORDS  EXTRACTED  a 673 

RECOhOS  READ-a 1*490-  — 

FOR  5LC,  RECORDS  EXTRACTED  a 220 

RECORDS-  DEAD-a 464  90  - 

FOR  LAX,  RECORDS  EXTRACTED  a 1547 

RECORDS  READ— a 46+90 

FOR  SRO,  RECORDS  EXTRACTED  a 1057 

RECORDS- READ -a—  -16190 

ior  las,  recopds  extracted  a 30s 

RF€»RDS-RD*D  a-- 16  4 90  - — 

FOR  SFA,  RECORDS  EXTRACTED  a 459 

rDC-BrOS  READ  a to 490 

4HR  HNL,  RECORDS  ExTRACTED  = 451 

-RECORDS  -HEAD  a 16  190  — 


Figure  7.  Sample  F0R21.DAT  From  0AGRD2 

# 

as  the  list  of  airports,  or  if  a different  number  of  file* 
than  indicated  in  the  control  file  have  been  shipped,  tne  message 
"you  are  somewhat  mistaken  as  to  the  information  on  this 
tape"  will  be  given,  and  execution  will  be  stopped. 

The  user  may  wish  to  change  the  tags  for  the  names 
of  the  output  disk  files.  See  Table  5 for  a list  of  the  current 
tags.  This  can  be  done  by  changing  the  octal  codes  for  the  tags 
in  array  ITAG.  An  informative  discussion  of  octal  codes  and 
character  manipulation  can  be  found  in  external  memorandum 
KH10-F29200-EM101/76 , dated  January  2,  1976,  which  provided  the 
basis  for  the  file-rnaming  scheme  used  in  all  programs  discussed 
in  this  report.  If  more  than  eight  months  of  data  are  being 
used,  re-dimensioning  of  ITAG  will  be  necessary.  Remember 
to  make  the  same  changes  in  PRFMRG,  which  is  the  only  program 
which  uses  these  files. 

7 . 2 Clustering 

Jnce  profiles  have  been  generated  for  all  desired  months, 
they  can  be  clustered.  Clustering  cannot  be  done  piecemeal; 
rather,  it  is  done  for  all  the  days  at  once.  Preparatory  to 
clustering,  PRFMRG  is  run.  If  there  is  a revised  list  of 
airports  insert  it  here.  Part  of  the  terminal  input  is  the 
number  of  the  first  and  last  input  files  to  be  used.  Usually, 
these  numbers  are  1 and  the  number  of  months . The  program  looks 
for  input  files  with  tags  corresponding  to  the  file  numbers; 


- , HQUNT-MIAJ-lA/3U-»3£2/-VJ. ■'■! 

IF<E«ROR)  « REQUEUE 

, MOUNT  HTAIl7/REI43&4/Vt  ' 9TRK-L  A V UN  4-43M  « /U£ 
IF (ERROR ) .REQUEUE 


.REWIND  17  * 

. SET  BLOCKS  ! fX  161  22212. 
.SET  BLOCKS  I ?E  1712200 


pyuj. 


T 

♦R- 


16100 

.RUN  OAGSM£. 


73 
-5+L. 
5,31 
-12 


17 

_2 


31 

_N. 


I F (ERROR ) .GOTO  * 


AIL... 


,R  jobcos 


.OELETE  PVT3JL.IS32.UAT 

.HL&^OUNT-Ui  .... 

.DISCOUNT  17  t 


“ 1A 

* 17 

17 
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14 

“ _N 
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*  AJ-L 

" ,R  JOBCOS 

" iataa_- _ 
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“ DISMOUNT  161 

' .DISCOUNT  171 
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a subset  of  the  input  files  can  be  merged  providing  their  tags 
are  consecutive.  If  more  than  eight  months  are  being  used  it 
it  is  necessary  to  change  the  device  numbers  being  used. 

Currently,  devices  16-23  are  used  for  input  files,  and  24  is 
the  output  device.  If  ITAG  in  OAGPRF  was  changed,  it  will  be 
necessary  to  change  it  here  as  well.  For  each  airport,  PRFMRG 
produces  a file  named  tlcPM.DAT.  These  files  will  be  read  by 
CLUSTR. 

Next,  run  CLUSTR.  Figure  10  provides  a sample  batch 
control  file.  This  program  also  uses  the  list  of  airports, 
which  the  user  may  be  changing.  CLUSTR  writes  files  which 
will  be  read  by  CLSFRQ  and  APMFG,  and  AVGPRF. 

CLUSTR  is  currently  set  up  to  cluster  120  days.  It 
requires  about  70K  core  and  10  cpu  minutes  to  cluster  this 
many  days.  If  the  total  number  of  days  in  the  months  being 
used  is  not  120,  it  will  be  necessary  to  redimension:  in 
subroutine  CLSSUB,  arrays  IDAY,  NDC , DVOL,  NAME,  THRES ; in 
subroutine  HICLUS,  arrays  TREE,  LINE,  LAMBDA,  OUTPUT;  and  in 
subroutine  PRTREE , arrays  MU,  MARK,  and  LAMBDA.  Exact  dimensioning 
is  preferred  for  these  arrays . 

If  more  than  120  days  are  being  clustered  it  will  also 
be  necessary  to  change  the  dimensions  of  ARRAY  in  the  main 
program,  and  PROX  in  subroutines  EUCLID  and  HICLUS.  Let 
NDAYS  be  the  number  of  days  to  be  clustered.  Then  ARRAY  ’ 
is  dimensioned  NDAYS*96  and  PROX  is  dimensioned  (NDAYS* (NDAYS-1) ) /2 . 
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0 


tR  SETSRf 

T 

C PVT3 1 

T 

,R  40RCU5 
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NO 

3 

Yes 

2,4 
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. R JOBCus 
14:oo 


Currently,  ARRAY  is  dimensioned  12000  and  PROX  is  dimensioned 
80Q0 . 

After  clustering  is  complete,  AVGPRF,  using  disk  files 
written  by  CLUSTR  and  tapes  written  by  OAGPRF,  begins  the 
averaging  process  for  profiles  and  related  quantities.  AVGPRF 
writes  interim  disk  files,  one  per  month  for  each  airport, 
containing  summed  quantities  for  the  parts  of  each  cluster  in 
the  month.  As  AVGPRF  is  run  for  each  month,  specify  which  month 
is  being  done.  Simply  number  the  months  1,  2,  3,... up  to  the 
number  of  months  being  done.  Put  them  in  chronological  order. 

Array  MONTHS  stores  the  number  of  days  in  each  month 
being  used,  in  chronological  order.  Dimension  MONTHS  as  the 
number  of  months,  and  NDC  and  PFS  as  the  total  number  of  days. 
Subroutine  WRT  also  uses  some  of  these  arrays.  If  more  than 
eight  months  are  being  used,  it  will  be  necessary  to  expand 
array  NNM , which  contains  the  tags  for  the  disk  files  AVGPRF 
produces.  See  Table  7 for  a list  of  these  tags.  If  another 
number  of  clusters  than  three  is  being  used,  it  will  be  necessary 
to  change  the  dimension  of  everything  that  has  a "3"  in  it. 

Once  AVGPRF  has  been  run  for  each  month,  there  will 
be  one  disk  file  per  month  for  each  airport.  AVGMRG  merges 
these  files;  any  changes  made  in  previous  programs  should  be 
extended  to  this  one.  NF  is  the  number  of  input  files,  equal 
to  the  number  of  months;  NDAYS  is  the  number  of  days.  There 
are  two  subroutines,  READD,  which  reads  the  files  written  by 
AVGPRF,  and  WRT , which  writes  an  averaged  output  file.  The 

output  file  is  named  tlcCP.DAT.  Device  20  is 
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output  file  is  named  tlcCP.DAT.  Device  20  is  used  for  output 
and  device  21  is  used  for  input  files.  The  files  tlcCP.DAT 
will  be  used  by  APMFG , described  in  Section  7.5. 


7.3  Weather 

Weather  data  processing  is  independent  of  all  other 
processing.  There  are  three  stages  involved:  data  extraction, 
data  compaction,  and  determination  of  VFR  and  IFR  days. 

Program  EXTWEA  extracts  ceiling  and  visibility  data 
from  a TDF-14  tape.  Records  are  read  in  I format  and  any 
records  containing  non-numeric  data  are  reread  in  (20A1)  format 
and  written  to  the  terminal.  They  are  also  written  to  the  output 
tape . 

To  extract  weather  data  for  some  other  year  or  years, 
only  two  statements  need  be  changed.  Rewrite  the  statement 
IF  (IA(2) .EQ.72.OR.  ...)  CO  TO  100  to  specify  the  year  or 
years  desired.  Similarly,  rewrite  the  statement 
IF  ( AR ( 7 ) . EQ . ' 2 ' . OR . . . . ) GO  TO  500.  Of  course,  the  statement 
10  FORMAT (15, 412, IX, 213)  could  be  replaced  with  the  statement 
10  FORMAT (A5,4A2, IX, 2A3 ) , and  Hollerith  fields  put  in  the 
statement  IF  (...)  GO  TO  100.  While  this  would  have  the 
advantage  of  making  the  extraction  faster,  it  has  the  disadvantage 
of  concealing  any  non-numeric  data  on  the  input  tape,  and  some 
caution  may  be  advisable  in  taking  this  step. 
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Once  the  data  has  been  extracted  for  the  years  desired 


run  WEACOM . This  program  reads  eight  records  at  a time  from 
the  input  tape;  eight  being  the  number  of  daily  observations 
made  in  '72  and  *73.  If  24  daily  observations  are  available, 
change  LIM  from  8 to  24,  and  dimension  arrays  ICLG  (ceiling) 
and  IVIS  (visibility)  at  24.  If  there  is  a read  error,  the 
ceiling  and  visibility  are  set  to  zero  for  that  observation. 

Observations  for  each  day  are  written  to  the  output 
tape  as  one  logical  record.  An  end-of-file  is  written  to  the 
output  tape  at  the  end  of  the  data.  A list  of  station  numbers 
is  written  to  the  terminal. 

There  are  eleven  statements  in  the  program  which  are 
special  pleading  for  two  missing  records  for  Seattle  in  December  1972 
December  1972.  These  are  indicated  by  comments  in  the  program 
list.  An  assumption  was  made  that  the  missing  observations 
were  the  last  two  for  the  last  day  of  the  month,  and  these 
were  assumed  equal  to  the  last  two  observations  for  the  preceding 
days.  If  desired,  these  statements  can  be  removed.  Note  that  if  the 
the  TDF-14  tape  has  either  missing  or  extra  records,  the  program 
will  have  to  be  modified  to  deal  with  that  fact.  See  Section  4.0 
for  a fuller  discussion  of  this  topic. 

The  compacted  weather  tape  is  read  by  program  vfrifr . 
which  produces  a list,  for  each  station,  of  VFR  and  IFR  days. 

Arrays  ICL  and  IVS  should  be  dimensioned  at  the  number  of 
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observations  per  day.  LIST  should  be  dimensioned  at  the  total 
number  of  days  in  the  year  or  years  which  are  being  used. 

This  is  also  the  value  assigned  NDAYS , now  731.  IAIR  is 
dimensioned  at  the  value  given  NA,  the  number  of  stations, 
currently  30.  DATA  IAIR/.,./  should  contain  a list  of  the  three- 
letter  codes  for  the  airports  being  used  in  the  order  that  the 
corresponding  stations  appear  on  the  tape.  (It  will  be  remembered 
that  WEACOM  gives  a list  of  the  station  numbers.) 

Currently,  the  IFR/VFR  decision  is  made  as  follows: 

There  are  eight  observations  for  each  day.  Consider 
observations  3 through  8.  If  ceiling  >^1500  feet  for  5 or  more 
of  these  six  observations,  and  visibility  ^3  miles  for  5 or 
more  of  these  observations,  then  the  day  is  VFR.  If  not,  it 
is  IFR.  The  list  of  VFR/IFR  days  is  written  to  disk  file 
tlcWE.DAT  as  an  array  of  0's  and  l's,  0 representing  IFR 
weather  and  1 representing  VFR  weather. 

7 . 4 Tower 

The  first  program  run  for  tower  data  is  TQWRD . One 
run  of  this  program  is  needed  for  each  7230.1  tape.  If  there 
are  tapes  for  more  than  one  year,  array  NPT  may  need  to  be 
changed  between  years.  Section  5.0  discusses  the  reasons 
for  this. 

In  TOWRD,  dimension  arrays  NPT  and  AN  to  the  number 
of  airports  being  used.  DATA  AN,  NPT/.../  lists  the  three-letter 
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codes  for  the  airports  and  the  corresponding  positions  on  the 
7230.1  tapes  that  these  airports  occupy.  For  example,  BOS 
is  the  seventh  airport  on  the  7230.1  directory  for  1972,  CLT 
is  the  110th,  and  so  forth.  TOWRD3  is  the  same  program  with 
NPT  rewritten  for  1973;  BOS  ia  still  7^  CLT  is  113th,  etc. 

The  list  needed  by  TOWRD  can  be  made  by  simply  going  through 
the  7230.1  directory  by  hand,  or  a card  deck  version  of  the 
directory  which  is  also  provided  with  the  tapes  can  be  used . 

When  running  these  programs,  in  addition  to  entering 
the  logical  device  number  for  the  input  tape,  a question  will 
be  asked  regarding  the  range  of  airports  on  the  tape.  Since 
data  for  100  airports  is  on  each  tape  except  the  last  (which 
has  as  many  as  are  left  over)  the  answer  will  be  '1,100', 
'101,200',  etc.,  depending  on  which  tape  is  mounted.  It  will 
also  be  necessary  to  specify  a anme  for  the  output  file,  as 
these  programs  write  data  for  the  airports  extracted  from  a 
particular  tape  to  a single  output  file. 

Now  run  TOWMRG . This  program  should  have  as  many 
input  files  as  there  are  years  of  data.  Note  that  TOWMRG 
assumes  that  data  for  a particular  airport  is  also  in  the 
same  one  of  the  7230.1  tapes  (2  of  4,  for  instance).  Also 
note  that  the  arrays  read  in  by  this  program  include  nine 
locations  (the  last  nine)  which  will  be  empty  if  the  year  was  not 
a leap  year.  In  the  case  of  72-73,  this  was  not  a problem 
as  the  only  empty  locations  were  at  the  end  of  the  '73  array. 


However,  if  a year  that  is  not  the  last  one  being  used  is  not 
a leap  year  (for  instance,  74-75),  write  out  only  the  part  of 
the  array  for  that  year  that  actually  contains  data,  so  that 
data  for  1/1  of  the  second  year  and  12/31  of  the  first  year  will  be 
contiguous.  This  means,  for  instance,  that  you  would  change 
I ARRAY  in  the  statement  WRITE(22}...  to  (I ARRAY  (I),  1=1,3285). 

Note  also  that  TOWMRG  must  be  run  even  if  there  is  only  one 
year  of  data,  as  it  produces  separate  files  for  each  airport 
named  tlcTW.DAT . Once  these  files  and  weather  files  (See  Section 
7.3)  are  written,  TOWER  can  be  run. 

Set  NDAYS  to  the  total  number  of  days  for  tower  and 
weather  data.  Dimension  LIST,  VS,  VN  to  the  value  of  NDAYS, 
and  MIX  to  (8, NDAYS).  Dimension  NARRAY  to  8*NDAYS . Dimension 
AN  to  the  number  of  airports  being  used,  and  enter  the  airport 
list  in  DATA  AN/.../.  Set  NAPT  to  the  number  of  airports.  In 
subroutine  XFRDIS,  dimension  IORDl  and  I0RD2  to  the  number  of 
days.  Current  dimensioning  allows  up  to  five  distribution  levels 
for  scheduled  and  non-scheduled  volumes , although  presently 
only  three  are  used.  These  levels  are  in  data  statements  in 
XFRDIS,  and  are  currently  set  to  .5,  .85,  1.0  for  both  scheduled 
and  non-scheduled,  VFR  and  IFR.  TOWER  produces  two  output  files 
for  each  airport:  tlcTO.DAT  and  tlcIV.DAT.  If  TOWER  is  to  be 
run  for  a subset  of  the  list  of  airports,  it  will  be  necessary 
to  type  in  the  three-letter  codes . 
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Annualization 


I 


The  annualization  happens  in  two  stages:  calculation 
of  cluster  frequencies,  and  generation  of  APM  files.  First 
run  CLSFRG . Here,  NDAYS  is  the  number  of  OAG  days.  Dimension 
NDC,  VOL  and  SVOL  at  this  number.  Dimension  AP  at  the  number 
of  airports  and  insert  the  list  of  airports.  CLSFRQ  uses 
input  files  tlcCL.DAT,  tlcIV.DAT,  tlcTO.DAT  and  writes  file 
tlcCF.DAT. 

Next,  run  APMFG.  Here  also,  NDAYS  is  the  number  of 
OAG  days.  Dimension  TOT  and  PFS  to  this  number.  IAN  contains 
the  airport  list  this  time.  Input  files  are  tlcCP.DAT,  tlcTO.DAT, 
and  tlcCF.DAT.  Output  files  are  tlcPF.DAT  (profile  file), 
tlcDF.DAT  (daily  file),  tlcAF.DAT  (annualization  file),  and 
tlcHF.DAT  (header  file) . These  are  the  final  product.  Enjoy 
them. 
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INCIDENTAL  PROGRAMS  AND  DIVERSIONS 


To  provide  data  for  APM  delay  validation,  pseudo- 
daily files  were  required  for  May  1972  for  Newark,  LaGuardia, 
and  JFK  (EWR,  LGA,  JFK) . TOWMAY  provides  tower  data  required 
on  files  tlcDl.DAT.  Program  DAILY  reads  these  files.  It  also 
reads  an  OAGPRF  output  tape,  on  which  the  three  airports  are 
contiguous,  and  an  hourly  weather  file  for  May  1972,  tlcWP.DAT. 

It  then  writes  to  tape  a "daily"  file  for  each  day  of  May  1972 
for  each  airport.  These  "daily"  files  have  the  same  form  and 
content  as  the  daily  files  described  in  Table  8.  The  weather 
files  were  produced  by  programs  WE AT HR  and  WEATH2 , by  a process 
of  redefining  the  eight  observations  available  to  24  "observations". 
Program  JACK  provides  a printout  of  as  many  days  as  are  desired 
from  a file  on  the  "daily"  tape. 

In  additon,  program  WEATH4  prints  out  ceiling  and 
visibility  for  the  31  days  of  May  1972.  This  program  reads 
from  the  tape  written  by  WEACOM,  regarding  which,  see  Sections 
4 . 0 and  7.3. 
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AN  - list  of  three-letter  codes;  read  in  only 

if  NA  is  not  equal  to  the  number  of  airports 
in  the  list  contained  in  the  program 

IDEV  - input  device  number 

I OUT  - output  device  number 

A record  count  is  written  to  device  five  every  5000 
records  read;  the  cumulative  number  of  records  extracted  is 
written  out  at  the  end  of  each  input  file,  and  the  total  number 
of  records  read  and  records  extracted  is  also  written  out. 

9 . 2 Program  0AGRD2 

This  is  a FORTRAN  program  which  reads  a tape  written 
by  OAGRD  and  orders  the  records  by  airport. 

Input  parameters  are : 

NA  - same  as  in  OAGRD 
AN  - same  as  in  OAGRD 
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IDEV  - same  as  in  OAGRD 

IOUT  - same  as  in  OAGRD 

A record  count  is  written  to  file  F0R21.DAT,  and  to 
device  five. 

9 . 3 Program  OAGPRF 

This  is  a FORTRAN  program  which  reads  a tape  written 
by  OAGRD 2 and  generates  minute-by-minute  profiles  of  arrivals 
and  departures . Records  with  FLAG  or  FUEL  for  times  are 
ignored.  Quarter-hour  profiles  are  written  to  disk,  unnormalized. 
Tape  output  includes  airport,  number  of  days  and,  for  each  day: 
day-of-year,  minute-by-minute  profile  of  arrivals  and  departures, 
hourly  arrival/departure  ratios,  concentrations  and  mix,  and 
peaking  factor  and  total  daily  volume.  A temporary  disk  .-file 
is  written  containing  information  from  the  OAG  records.  Optional 
printed  output  is  available,  but  desirable  only  for  small 
test  runs  (a  few  days) . 

The  program  asks  for  the  following  input  parameters: 

YEAR  - year;  integer  - eg.,  74  or  1974  3 

DATE  - month,  day  at  which  profile  generation  begins; 

for  instance,  if  the  input  tape  is  for  April,  1975, 
this  could  be  4,7 

DATE  - month,  day  of  last  day,  e.g.  4,12. 

If  the  whole  month's  profiles  are  wanted,  then 
first  DATE  read  would  be  4,1,  and  second  DATE 
read  would  be  4,30. 
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NJAN1  - if  YEAR  is  not  between  1970  and  1976,  NJAN1 

is  read  in  - this  is  the  day  of  the  week  that 
January  1 fell  on  in  YEAR,  e.g.  Wednesday. 

IDEV  - input  device  number 

ITAPE  - output  device  number 

NTAG  - number  of  tag  for  disk  file; 

NTAG  is  between  1 and  8 ; consecutive  tags  should 
be  used,  and  tags  should  be  assigned  uniquely 
to  a month.  A list  of  the  tags  associated 
with  each  value  of  NTAG  is  written  to  device  five 
before  NTAG  is  read. 

NA  - same  as  in  OAGRD 

REP  - if  NA  is  not  equal  to  the  number  of  airports 
in  the  list,  the  program  asks:  "Are  you  just 
skipping  some  files?"  Answer  YES  or  NO. 

ISKIP  - number  of  airports  being  skipped;  needed  if  NA 
was  not  maximum  value  and  REP  was  YES. 

AN  - as  in  OAGRD;  this  list  is  read  if  NA  was  not 
maximum  and  REP  was  NO. 

REPLY  - printing  option;  = ALL,  SOME  or  NONE;  except 
for  test  runs  of  a few  days,  NONE  is  the  best 
bet. 

The  day-of-week  of  the  first  day  wanted  is  written  to 
device  five,  as  is  the  name  of  each  airport  as  profile  generation 
for  it  is  begun.  Records  which  are  ignored  are  also  written 
to  device  five.  If  the  input  tape  has  records  which  are  not 
for  the  expected  airport,  the  message  'you  are  somewhat  mistaken 
as  to  the  information  on  this  tape'  is  written  to  device  five. 


9.4  Program  PRFMRG 

This  is  a FORTRAN  program  which  merges,  for  all  or 
some  of  a list  of  airports,  up  to  eight  disk  files  containing 
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quarter-hour  profiles.  These  disk  files  are  produced  by 
OAGPRF  (see  description  above) . 


Input  parameters  are: 

NA1 ,NA2  - locations  in  list  of  first  and  last  airports 
whose  disk  files  are  being  merged;  e.g., 

1,1  merges  files  for  just  the  first  airport 
on  the  list;  2,5  merges  files  for  the  next 
four  airports;  1,31  merges  files  for  all  of 
a list  of  31  airports. 

NF1,NF2  - numbers  of  first  and  last  files  to  be 

merged  - these  correspond  to  the  lowest 
and  highest  values  specified  for  NT AG 
in  runs  of  OAGPRF  (see  above) . 

The  range  of  days  on  each  input  file  is  written  to 
device  five. 


9.5  Program  CLUSTR 

This  is  a FORTRAN  program  which  performs  hierarchical 
proximity  clustering  on  quarter-hour  profiles  contained  in  files 
written  by  PRFMRG.  An  alternate  version,  PCLUST,  will  cluster 
for  any  input  file,  the  file  name  being  read  in. 

Input  parameters  for  CLUSTR  are: 

REPLY  - NO  if  trees  are  not  to  be  printed;  otherwise, 
anything . 

NC  - number  of  clusters  wanted 

REPLY  - YES  if  trees  are  to  be  saved  on  disk,  which 
is  a good  idea. 

NA1 ,NA2  - same  as  for  PRFMRG 

REPLY  - NO  if  normalized  profiles  are  not  wanted, 
usual  answer  is  YES. 


Subroutine  CLSSUB 

This  is  a FORTRAN  subroutine  which  normalizes  input 

data,  if  required,  and  calls  cluster  software. 

The  calling  sequence  is: 

CALL  CLSSUB (AIR, ARRAY, NROWS, NCOLS) 

where  the  arguments  of  the  subroutine  are: 

AIR  - an  integer  variable  containing  a three-letter 
airport  code 

ARRAY  - array  of  profiles,  dimensioned  NROWS  x NCOLS 
NROWS  - rows  in  ARRAY;  number  of  days  being  clustered 
NCOLS  - columns  in  ARRAY;  here,  96  (quarter-hours /day ) 

9.5.2  Subroutines  EUCLID,  HICLUS,  PRTREE 

These  FORTRAN  routines  are  described  in  detail  in  report 
KHL-TSC-76-1396 , dated  April  20,  1976. 

9.5.3  Subroutine  SUSPCL 

This  FORTRAN  subroutine  suspends  the  cluster  process 
at  any  number  of  clusters  and  produces  a list  of  the  assignments 
of  days  to  clusters.  With  current  dimensioning  of  INDEX,  the 
maximum  number  of  clusters  is  10. 

The  calling  sequence  is : 

CALL  SUSPCL(NAME,THRES,NDC,NUM) 

where  the  arguments  of  the  subroutine  are: 


NAME ,THRES  - as  for  cluster  software,  op.  cit. 

NDC  - for  day  I,  NDC(I)  is  the  cluster  assignment. 

i 


I 


NUM  - number  of  days. 

If  the  number  of  clusters  is  three,  a default 
subroutine,  YAWN,  is  called. 

9.5.4  Subroutine  YAWN 

This  FORTRAN  routine  suspends  clustering  at  three 

clusters . 

The  calling  sequence  is: 

CALL  YAWN  (NAME  ,THRES  ,Nr»C  ,NUM) 

where  the  subroutine  arguments  are  the  same  as  those  for  SUSPCL. 
9.6  Program  PRFPLT 

This  is  a FORTRAN  program  which  produces  terminal  plots 
of  quarter-hour  profiles,  daily  or  clustered. 

Input  parameters  are: 

NAME  - name  of  input  file 
YEAR  - year 

NA  - number  of  airports  on  input  file 
REPLY  - NO  if  normalized  data  is  not  wanted 

9.6.1  Subroutine  PLTSUB 

This  FORTRAN  routine  is  exactly  analogous  to  CLSSUB 
above.  Instead  of  calling  cluster  software,  it  calls  XYPLOT. 
Input  parameters  are: 

THIS  - YES  if  clusters  are  wanted;  NO  if  individual 
days  are  to  be  plotted. 
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if  THIS  was  'YES': 


NPLT  - number  of  days  to  be  plotted;  current  maximum  10. 
IPLT  - array;  numbers  of  days 
if  THIS  was  'NO'; 

NCLUS  - number  of  clusters 

DEF  - YES  if  cluster  default  is  to  be  used,  which 
puts  days  1-29  in  cluster  1,  days  30-91  in 
cluster  2,  and  days  92-241  in  cluster  3.  This 
option  is  probably  not  useful. 

if  DEF  was  'NO',  for  each  cluster; 

NDJ  - number  of  days  in  cluster  - maximum  is  241 

NDJA  - which  days  they  are. 

9.6.2  Subroutine  XYPLOT 

This  subroutine  produces  the  plots.  The  calling  sequence 

is; 

CALL  XYPLOT  (Xi-IIN  ,XMAX  , XDEL  , Y) 
where  the  subroutine  arguments  are: 

XMIN  - minimum  value  of  X - here,  1. 

XMAX  - maximum  value  of  X - here,  96. 

XDEL  - stepsize  - here,  1. 

Y - array  of  Y values. 

Input  parameters  for  the  subroutine  are: 

NCH  - number  of  characters  in  title 
TITLE  - title. 
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Program  CORAL 

This  is  a FORTRAN  program  which  provides  a set  of 
correlations  between  clusters  for  February  1975  and  three  months 
of  1975,  and  between  days  of  the  three  month  period  and  February 
clusters,  for  five  airports.  The  clusters  are  read  from  file 
CORAL . DAT . 


9.7.1  Subroutine  CCOEFF 

This  subroutine  calculates  a correlation  coefficient, 
defined  by 


* *i  - 
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The  calling  sequence  for  this  subroutine  is: 

CALL  CCOEFF (N,X,Y,R) 

where  the  arguments  are  defined  as 

N - n in  the  above  equantion 
X - X above;  a profile 
Y - Y above;  a profile 

R - r above;  the  correlation  coefficient. 

9.7.2  Subroutine  SUM 

This  subroutine,  called  from  CCOEFF,  sums  the  elements 
of  an  array.  The  calling  sequence  is: 

CALL  SUM (X ,N ,S) 
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where  the  subroutine  arguments  are 
X - array 

N - number  of  elements  being  summed. 

S - sum* 

9.8  Program  AVGPRF 

This  is  a FORTRAN  program  which  performs  partial 
averaging  for  profiles  and  ancillary  quantities,  read  from  a 
tape  written  by  OAGPRF.  Input  parameters  are: 

IDEV  - input  device  number 
NA1 ,NA2  - same  as  for  PRFMRG 

ITAPE  - an  integer  which  specifies  tags  for  output 
files.  It  may  vary  between  NF1  and  NF2 
as  defined  for  PRFMRG. 

NT1  - The  smallest  value  of  ITAPE;  may  equal  NF1 

in  PRFMRG 

9.9  Program  AVGMRG 

This  is  a FORTRAN  program  which  merges  the  files  written 

by  AVGPRF,  completing  the  averaging  process. 

Input  parameters  for  this  program  are: 

NA1 ,NA2  - as  in  previous  programs 

NF  - number  of  files  being  merged 

NF1  - tag  of  first  file;  same  as 
NT1  in  AVGPRF 

9 ,1Q  Programs  TOWRD  and  TOWRD 3 

These  are  FORTRAN  programs  which  read  7230.1  tapes  and 
extract  data  for  selected  airports.  TOWRD  does  this  for  1972; 
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T0WRD3  for  1973.  Output  is  to  disk.  Input  parameters  are: 

ANAME  - name  for  output  file 

ITAPE  - input  device  number 

NATl ,NAT2  - range  of  airports  on  the  input  tape,  e.g., 

if  this  tape  has  the  second  hundred  airports, 
as  listed  in  the  7230.1  directory,  the 
NATl ,NAT2  = 101,200. 

9.11  Program  TOWMRG 

This  is  a FORTRAN  program  which  merges  data  for  two 

files , one  written  by  TOWRD  and  one  written  by  TOWRD3 , and 
writes  a separate  disk  file  for  each  airport  for  which  there 
is  data  on  the  two  input  files. 

Input  parameters  are : 

NAME1 ,NAME2  - names  of  two  input  files 
NA  - number  of  airports  on  the  input  files. 

9.12  Program  TOWER 

This  is  a FORTRAN  program  which  separates  tower  traffic 

by  weather;  calculates  the  non-scheduled  mix  for  each  day;  computes 
scheduled  vs.  non-scheduled  distributions  for  VFR  and  IFR  days, 
associates  mean  volumes  and  mean  mixes  with  these  distributions ; 
and  calculates  over-all  means  for  air  carrier,  air  taxi,  general 
aviation  and  military  traffic. 

Input  parameters  are: 

NA  - number  of  airports 

IAIR  - name  of  an  airport;  the  program  prompts  for 

this  if  NA  is  smaller  than  the  number  of  airports 
listed. 
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Major  variables  are: 

VS  - array  of  daily  scheduled  volumes 
VN  - array  of  daily  non-scheduled  volumes 
MIX  - array  of  daily  mixes 


9.12.1  Subroutine  XFRDIS 

This  is  a FORTRAN  subroutine  which,  for  two  subsets 
of  days  (VFR  or  IFR) , calculates  scheduled  and  non-scheduled 
distribution  levels,  and  defines  a set  of  "boxes"  limited  by 
these  levels.  It  also  averages  scheduled  and  non-scheduled 
volumes  and  mixes  for  each  of  the  boxes,  calculates  intervals 
I and  J such  that  I (i)  is  the  largest  scheduled  volume  for  the 
ith  set  of  boxes,  and  J(j)  is  the  largest  non-scheduled  volume 
for  the  set  of  boxes. 

The  calling  sequence  for  this  subroutine  is: 

CALL  XFRDIS {NDAYS ,VS ,VN ,MIX ,LIST ,MNUM) 
where  the  arguments  are  defined  as: 

NDAYS  - total  number  of  days 

VS  - array  of  scheduled  volumes,  dimensioned  NDAYS 

VN  - array  of  non-scheduled  volumes,  dimensioned  NDAYS 

MIX  - array  of  mixes,  dimensioned  8 x NDAYS. 

LIST  - list  of  VFR/IFR  days,  dimensioned  NDAYS 

i'INUM  - array  of  two  elements  containing  number  of 
IFR  days  and  number  of  VFR  days 


Other  major  yariables  are: 


: 


NPI  - number  of  scheduled  volume  distribution  levels; 
two  elements  (IFR/VFR) 

NSIG  - number  of  non-scheduled  volume  distribution 
levels;  two  elements  (IFR/VFR) 

PI  - array  of  scheduled  distribution  levels  (fractions) 

SIG  - array  of  non-scheduled  distribution  levels 

ILIST  - integer  keying  IFR/VFR  calculations , 
if  0,  IFR;  if  1,  VFR 

9.12.2  Subroutine  DISLEV 

This  is  a FORTRAN  subroutine  which  calculates  the  number 

of  days  below  each  distribution  level.  The  calling  sequence 

for  this  subroutine  is: 

CALL  DISLEV (N ,AR ,X ,NAR) 

where  the  arguments  are  defined  as: 

N - number  of  distribution  levels;  NPI  or  NSIG 

AR  - PI  or  SIG  in  XFRDIS;  dimensioned  0/1  x N 

X - number  of  days;  floating  point 

NAR  - returns  the  number  of  days  below  each  level; 
dimension  N. 

9.12.3  Subroutine  ORDER 

This  is  a FORTRAN  subroutine  which  produces  a list  of 
array  subscripts  ordered  by  increasing  value  of  array  elements 
for  a subset  of  an  array.  The  calling  sequence  for  this  routine  is: 
CALL  ORDER (ND,V, LIST, IC,I0RD) 
where  the  arguments  are  defined  as: 
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ND  - number  of  days  (total) 

V - array  of  volumes 

LIST  - list  of  VFR/IFR  days 

IC  - number  of  days  in  the  subset  (either  VFR  or  IFR) 

IORD  - list  of  subscripts  of  subset  of  volumes , ordered 

by  increasing  volume. 

9.13  Program  CLSFRQ 

This  is  a FORTRAN  program  which  calculates  the  frequency 
with  which  each  cluster  occurs  for  each  scheduled  distribution 
level.  Input  parameters  are: 

NA1 , NA2  - same  as  in  PRFMRG 

Subroutines  called  by  CLSFRQ  are  DISLEV  and  ORDER, 
which  differ  from  their  versions  in  TOWER  only  in  that  keying 
for  IFR/VFR  days  has  been  removed. 

9.14  Program  APMFG 

This  is  a FORTRAN  program  which  reads  files  of  tower 

data,  clustered  profiles  and  cluster  frequencies;  and  produces, 
for  use  by  the  Airport  Performance  Model,  header,  annualization, 
profile,  and  daily  files.  Input  parameters  are: 

NAl ,NA2  - same  as  in  PRFMRG 

9.15  Program  FPRINT 

This  is  a FORTRAN  program  which  provides  printing  of 

any  of  the  files  written  by  APMFG.  Input  parameters  are: 


IAIR  - Three-letter  code  for  airport 


A - D - for  daily  file 
H - for  header  file 
A - for  annualization  file 
P - for  profile  file 
N - or  any  other  letter,  end  run. 
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» FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKE!0aGRD.F4  14255,516]  18-May-76 


0AGRD.F4 

THIS  PROGRAM  READS  ONE  OR  MORE  FILES  ON  AN  OAG  TAPE  AND  EXTRACT. 
ARRIVAL  AND  DEPARTURE  RECORDS  FOR  A SPECIFIED  LIST  OF 
AIRPORTS.  THESE  RECORDS  ARE  WRITTEN  TO  TAPE  IN  THE  SAME 
ORDER  AS  THEY  ARE  READ. 


DIMENSION  ALISK22) , AN  (31) , ANSI  31) 

DATA  ANS/'BOS', 'OCA', 'BAL', 'EWR', 'JFK', 'LGA', 'IAH', 'PHL', 

1 'PIT',  MAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL', 'CLT', 

2 'ORD', 'DTW','MSP','CLE', 'STL', 'MSY', 'DAL', 'DEN', 'SLC', 

3 'LAX',  'SFO',  'LAS',  'SEA  ' , 'HfJL  ' / 

NRITEC5, 1 100) 

1100  FORMAT ( ' HOW  MANY  FILES  ON  INPUT  TAPE?'/) 

READ ( 5 , 200 ) NTAPE 
IREADsO 
IWRITEsO 
WRITEC5, 100) 

100  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 

PFAD(5,200)  NA 
200  FORMAT ( I ) 

IF  NOT  ALL  THIRTY-ONE  AIRPORTS  ARE  BEING  EXTRACTED, 
CODES  FOR  THOSE  WANTED  MUST  BE  TYPED  IN 

IF(NA.NE.3l ) GO  TO  110 
DO  111  1=1, NA 

111  AN ( I ) =ANS ( I ) 

GO  TO  112 

110  WRITE (5, 300) 

300  FORMAT  C ' NAME  AIRPORTS  - 3 LETTER  CODES  - N(A3,1X)  '/) 
READ (5, 400)  (AN(J), Jsl ,NA) 

4u0  F0RMATC30CA3, IX) ) 

112  CONTINUE 
WRITE (5, 500) 

500  FORMAT C ' INPUT  TAPE  DEVICE  NUMBER?  '/) 

RE AD ( 5 , 200 ) IPEV 
WRITE (5, 700) 

700  FORMAT ( ' OUTPUT  TAPE  DEVICE  NUMBER?  '/) 

RE AD (5, 200)  IOUT 
BOO  FORMAT(I2*1X,A5) 

DO  6000  ITAPE=1, NTAPE 
WRITE(5, 1300)  ITAPE 
1300  FORMAT ( /// ' ITAPE  = ',12) 

210  READ(IDEV,6«)0,END=1000,EPR  = 2000)  ALIST 
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600  FORMAT(A4«*3,2aS'A4,a3'1SA5,A3) 

IHEADsIREADM 

IF(IREAD/3000«5000.EO.IREAO)  WRITE(5,770)  IREAD 
770  FORMAT! * RECORDS  a '18) 

JAaO 

310  JAaJA+1 

IF(JA.GT.NA)  GO  TO  210 

IF(ALIST(2).NE.AN(JA).AND.ALIST(6).NE.AN(JA))  go  TO  310 
WRITE ( 10UT , 600  ) ALIST 
IWRITE«IWRITE+1 
GO  TO  210 

2000  IREADaIREAD+1 
WRITE(S»200l)  IREAD 

2001  FORMAT! ' READ  ERROR  AT  RECORD  '10/) 

GO  TO  210 

1000  CONTINUE 

WRITE(5, 1200)  ITAPE,IWRITE 

1200  FORMAT!/'  FOR  FILE! ',12,',  RECORDS  EXTRACTED  a '18) 
WRITEI5,900)  IREAD, IWRITE 

000  FORMATI//I10, • RECORDS  READ  FROM  TAPE'/'  WRITTEN  TO  TAPE:', 110, 
1'  RECORDS'/) 

6000  CONTINUE 

END  FILE  IOUT 
END 


##  A-2  t* 
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* FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEJOAGRD2.F4  [4255,5161  18-M*y-76 


OACR02.F4 

THIS  PROGRAM  READS  TAPE(S)  WRITTEN  BY  0AGRD.F4  AND 
ORDERS  THE  RECORDS  BY  AIRPORT  FOR  THE  AIRPORTS  SPECIFIED, 

NOT  ALL  THE  AIRPORTS  EXTRACTED  BY  OAGRD.F4  NEED  BE  SPECIFIED 
HERE.  THE  CONVERSE,  HOWEVER,  IS  NOT  TRUE.  A RECORD  COUNT  IS 
written  on  for21.dat. 

DIMENSION  ALIST(22),AN(3l),ANS(31) 

DATA  ANS/'BOS', 'DCA', 'BAL', 'EWR', 'JFK', 'LGA', 'IAH','PHL', 

1 'PIT', 'IAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL', 'CLT', 

2 'ORD', 'DTW', 'MSP', 'CLE', 'STL',  'MSY', 'DAL', 'DEN',  'SLC', 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

ITAPE=1 

IREAD*0 

IWRITEsO 

WRITF(5,1«0) 

100  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 

READ (5,200)  NA 
200  FORMAT (I ) 

IF  NOT  ALL  THIRTY-ONE  AIRPORTS  ARE  BEING  EXTRACTED, 
CODES  FOR  THOSE  WANTED  MUST  BE  TYPED  IN 

IF ( NA . NE  . 3 1 ) GO  TO  110 
DO  111  1=1, NA 

111  AN(I)=ANS(I) 

GO  TO  112 

110  WRITE15, 300) 

300  FOPMATC'  NAME  AIRPORTS  - 3 LETTER  CODES  - N(A3,1X)  '/) 

READ (5,400)  ( AN ( J ) , Jsl , N A ) 

400  FORMAT(30(AJ»  IX)  ) 

112  CONTINUE 
WRITE(5,500) 

500  FORMAT ( ' INPUT  TAPE  DEVICE  NUMBER?  '/) 

READ (5,200)  IDEV 
WRITEI5, 700 ) 

700  FORMAT ( ' OUTPUT  TAPE  DEVICE  NUMBER?  '/) 

READ ( 5 , 200  ) IOUT 
800  FORMAT(I2, IX, A5) 

DO  5000  JA= 1 , NA 
IB=0 
I A=0 

REWIND  IDEV 

210  READ(IDEV,610,END«1000,ERR=2000)  ALISTC2) , ALIST(6) 
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610  FORMAT(4X,A3, MX, A3) 

600  FORMAT! A4, A3, 2A5,A4,A3,1SA5, A3) 

IB«IBfl 
ZREADf IREAD+1 

IF ( I READ/ 10000*10000. EQ.IREAD)  WRITE(5,770)  IREAD 
770  FORMAT!'  RECORDS  * '18  3 

IF(ALIST(2).NE.AN(JA).AND.ALIST(6).NE.AN(JA))  GO  TO  210 
REREAD  600,ALIST 
WRITE (I OUT, 600)  ALIST 
IAalAM 

IWRITEalKPITEti 
GO  TO  210 

2000  IREADilREADTl 
IB=IB+1 

WRITE!5,2001)  IREAD 

2001  FORMAT ( * READ  ERROR  AT  RECORD  'IS/) 

GO  TO  210 

1000  CONTINUE 

END  FILE  IOUT 

WRITEC21 ,880)  AN(JA),IA,IB 
WRITE ! 5 * 880 ) AN( JA) , IA, IB 

8R0  FORMAT (6X, ' FOR  ',A3,',  RECORDS  EXTRACTED  s'llO/lOX, 

1 'RECORDS  READ  s'HO) 

5000  CONTINUE 

WRITE(5,900)  IREAD, IWRITE 

900  FORMAT (//IlO,'  RECORDS  READ  FROM  TAPE'/'  WRITTEN  TO  TAPE ! * , 1 1 0 , 
1'  RECORDS'/) 

6000  CONTINUE 

END  FILE  IOUT 
END 


**  A-4  ** 
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« FOLLOWING  T*XT  PRINTED  FROM  FILE  DSKE|OaCPRF.F4  (4255,516]  18-M«y-76 

OAGPRF.F4 


THIS  PROGRAM  READS  A TAPE  WRITTEN  BY  OAGRD2.F4  AND 
GENERATES  MlNUTE-BY-MlNUTE  PROFILES  OF  OPERATIONS. 

AIRPORTS  ARE  CONSIDERED  IN  THE  ORDER  IN  WHICH  THEY 
OCCUR  ON  THE  INPUT  TAPE.  THE  PROGRAM  ALWAYS  PRODUCES 
TAPE(MINUTE-BY-MINUTE)  AND  DISK(OUARTER-HOURLY)  OUTPUT  AND 
HAS  OPTIONAL  PRINTED  OUTPUT.  BOTH  TAPE  AND  DISK  OUTPUT  FILES 
INCLUDE  AIRPORT,  NUMBER  OF  DAYS,  AND,  FOR  EACH  DAY,  DAY-OF-YEAR, 
ARPIVAL/DEPARTURE  RATIOS,  CONCENTRATIONS  MIX  PERCENTAGES, 

AND  PEAKING  FACTORS. 


DIMENSION  EQCD(172),MNTHC12),AN(31 ) , ANS ( 31 ) , NUMA( 31 ) , 

1 VOL (1440, 2)»DATE(2),A(2)»TIME(2»2),DAY3(7), DATE S(4),DAY(2)» 

2 DY(2),MINAD(2),H0UP(2) , ADR (24) , VOLQ ( 96 , 2 ) , VOLH ( 24 , 2 ) , 

3 AMX(4),CONCEN(24),IMS(4) ,WEEK(7), JAN (7) , 

4 WQ(96),WM(1440) ,WH(24),PMIX(24,8) ,PMIXP(24,8) 

LOGICAL  IPP I NT , I PRNT 

INTEGER  PCL( 172) 

INTEGER  time,days,dates,year,date,day,dy,dofw,eqcl, 

1 HOUR , DOFWl ,EQC,AN,A,ANS 
DIMENSION  ITAG(8) 

DATA  I TAG, I AND/" 31 142, "31144, "31 146, "31 150, 

1 "31542, "31544, "31S46, "31550, "777777700000/ 

DATA  WEEK /'SUN', 'MON', 'TUE', ' WED  ' , 'THU  ' , 'FR I ' * 'SaT'/ 

DATA  ‘j AN/5, 6, 7,2,3, 4, 5/ 

DATA  IPRINT,IPRNT/2#. FALSE./ 

DATA  MNTH/ 3 1,2 8, 3 1,3 0,3 1,30, 31, 3 1,30, 31, 30, 31/ 

DATA  NOTHP,NCLP/7,8/ 

DATA  PCL/1,2#3,6*2, 3, 1 , 7*2 , 3*4 , 5 , 4, 2 , 5 , 5 , 7*4 , 

1 2*2,2*4.5,5*4,5*5,7*4,5,4,4,2,2,4,5,65*6,2*6, 

2 25*6, 18*8/ 


5;qcu/' 


10', 'DBS', 


1 

'DBF', 

'B3f' 

' Y62  ' , 

'OCR  ' , 

'707', 

' A3B  ' , 

' 7 4F  ' 

, 'SSC' 

, 'Y76 ' , 

'GAL', 

2 

'T44  ' » 

'STV' 

'V10', 

'SUV', 

3 

'111', 

'BAC' 

'SI  1 * , 

'72s', 

'737', 

'720', 

'727' 

,'72F' 

, '73s', 

4 

'VL3 ' , 

' VLfe  ' 

'CVS', 

'C VF  ' , 

'CVL', 

' J60  ' , 

'880' 

, '990' 

,'FAL', 

5 

'DME ' , 

'CM4  ' 

'DC9  ' , 

'U95', 

'D9F  ' , 

'FFJ  ' , 

'F28  ' 

,'TRD' 

,'T1C', 

6 

'TIE', 

'T2E' 

'T3B  ' , 

'HAN', 

' H5  J ' , 

'LJT  ' , 

'T24  ' 

, 'T04 ' 

, 'T34  ' » 

' VF6  ' , 

7 

'Y40', 

'JET' 

'D95  ' , 

'B2F  ' , 

'B7F  ' , 

' J6  ', 

'T54  ' 

, 

9 

'AVS', 

'AVR' 

'AV  ', 

'«ER', 

'ME  ', 

'VAN', 

'BRF' 

, 'C44' 

, 'CL  ', 

'CV2  ' , 

A 'C2  ','CV 
8 'A12*,'A1 

1 'CV  ','PCU 

2 *DC3','D3 


' , 'C 3 ','CV4','C4  ','CV5','C5  ' 
' , ' A2  ','A24','A02','AN  ','A10' 
','CU  ','DbV','P2  ','PDS','DS  ' 
','DC4','D4  ','DC6','D6  ','D6A' 


’ , 'DC4 ' , ' 


'D6A  ' 


'CV6  ' 
'A22  ' 
'DHC  ' 
'6A  ' 


'C6  ','CVR', 
'A26', 'APE', 
'DH7 ' , 

'D6F ' , 'D6B ' , 
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3 '6*  ','D6C','DC7','FPR','F27','F7  ','FH7','FH  ','PGu','GU  ', 

4 '748', 'AO  ','Y11','Y4  ','Y18','Y8  ','LEC','LE  ' , 'LHE ' , 'LXA' , 

5 'PHR ' , 'HP  ','MR4','M4  ','Y5l','YS  ','N26','N2  ' , 'NAT  ' , 'T 1 4 ' , 

6 'T4  ','VIS','VV  ','VF  ','V70','V80','VB  ' , 'YK2 ', ' Y1 I ' , 

B 'SU  ','A5  ','CO  ','N2  ', 

7 'ALO','AL  ', 'AB4', 'AB2', '205', 'SA3', 'VT7', 'HOV', 'KH4', 

8 'S34'#'S6l','Sl  '» 'S55'» 'S58'» 'PS 4'# 'S4  ','47J','JR  '/ 

DATA  ANS/ 'BOS', 'OCA', 'BAL', 'EWR'# 'JFK', 'LGA'# 'IAH'# 'pHL', 

1 'PIT',  'IAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA','ATL','CLT', 

2 'ORD', 'DTW', 'MSP', 'CLE', 'STL ' , 'MSY ' , 'DAL ' , 'DEN ' , 'SLC  ' , 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

GET  INITIAL  INFORMATION 
WRITEC5# 100) 

100  FORMAT! ' WHAT  YEAR  ARE  WE  IN?'/) 

RtAD(5,101)  YEAR 

101  FORMAT (21) 

IF ( YEAR .LT.1900)  YEAR=YEAB+1900 
IF( YEAP/4M .EO.YEAR)  MNTH(2)s29 
DO  80  LD=1,2 
IF(LD.EQ.l)  WR1TEC5, 102) 

IF(LD.EQ.2)  WRITE (5 , 105) 

102  FORMAT ( ' WHAT  IS  THE  FIRST  DAY  WE  WANT  - MONTH , DAY? '/ ) 
READ(5, 101 ) DATE 
TF(LD.EQ.l)  IDS1=PATE(2)-1 
DAYCI,D)=0 

IF(DATE(1).E0.1)  GO  TO  200 
NsDATE ( 1 ) “ 1 
DO  20!  JD=1,N 

201  DAY(LD)sDAY(LD)+^NTH(JD) 

20 u DAY(LD)=DAy(LD)+DArE(2) 

105  FORMAT ( ' what  IS  THE  LAST  DAY  WE  WANT?  - MONTH, DAY'/) 

80  CONTINUE 

NDAYS=DAY(2)-0AY( 1 )+l 

FIND  PAY-OF-WEF.K  FOR  FIRST  DAY  WANTED 

IFIYKAP. LT. 1970. OR. YEAR. GT. 1976)  GO  TO  1515 
IDWsYEAR-1969 
J AN  1 = J AN ( ID W ) 

GO  TO  1616 

151*  WRITE<5, 1717)  YEAR 

1717  FORMAT ( ' SOPRY  - I D0N',1H','T  KNOW  WHAT  DAY  OF  THE  WEEK'/ 

1 ' JANUARY  FIRST  OF  '14,'  WAS  -'/ 

2 ' YOU  WILL  HAVE  TO  TELL  ME'/) 

READ ( 5 , 1 8 l 8 ) NJAUl 
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1818  FORMAT ( A 3 ) , 

DO  1919  IJ=1,7 

1919  IF(NEEK(IJ).EQ.NJAN1)  JAN1=IJ 
1616  CONTINUE 

I=DAY(1 )-l 
IA0D=M0D(I,7) 

JAN  lx JAN 1^1 ADD 
D0FWxM0D(JANl,7) 

IF(DOFW.EO.O)  D0FWx7 
WRITE (5 , 1 06  ) WEEK ( DOFW ) 

106  FORMAT ( * THE  FIRST  DAY  YOU  WANT  FALLS  ON  'A3) 

DOFWxDOFW-1 

GET  INPUT  AND  OUTPUT  TAPE  DEVICE  NUMBERS  AND  NAME  OF  DISK  OUTPUT  FIL 
WRITE(5»  301  ) 

301  FORMAT ( * INPUT  TAPE  DEVICE  NUMBER?'/) 

READ (5,101)  IDEV 

WRITE (5»302) 

302  FORMAT ( ' OUTPUT  TAPE  DEVICE  NUMBER?'/) 

READ (5,101 ) ITAPE 

IOUT=21 
WRITE (5, 3301) 

3301  FORMATt'  SELECT  TAG  FOR  OUTPUT  DISK  FILE  NAMES:'/ 

1 ' ENTFP  AN  INTEGER  BETWEEN  1 AND  8'/ 

2 ' 1:  21  (FEb  72)'/ 

3 ' 2:  22  (MAY  72)'/ 

4 ' 3:  23  (AUG  72)'/ 

5 ' 4:  24  (NOV  72)'/ 

6 ' 5:  31  (FEB  73)'/ 

7 ' 6J  32  (MAY  73)'/ 

8 ' 7:  33  (AUG  73)'/ 

9 ' 8:  34  (NOV  73)'/) 

READ  (5,101)  NT  AG 
JTAGxITAG(NTAG) 

IDSK=20 

WPITE(5,70) 

70  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 

READ (5,101)  NA 

IF  NOT  ALL  THIRTY-ONF  AIRPORTS  APE  BEING  USED,  CODES  FOR  THOSE 
WANTED  ARE  TYPED  IN 

1F(NA.NE.31)  GO  TO  71 
DO  72  I x 1 , N A 
72  AN ( I )»ANS( 1 ) 

GO  TO  73 
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7i  continue 
WRITE(5,174) 

174  FORMAT ( * ARE  YOU  JUST  SKIPPING  SOME  AIRPORTS?*/) 

READ (5,81)  REP 
IF(REP.EO. *Y*)  GO  TO  176 
WRITE(5,74) 

74  FORMAT ( * NAME  AIRPORTS  - 3 LETTER  CODES  - N(A3,1X)*/) 
READ (5*75)  ( AN ( J ) , Js 1 , NA  ) 

75  FORMAT(15(A3,lX)) 

GO  TO  73 

176  WRITE (5  » 177) 

177  FORMAT!*  HOW  MANY  FILES  ARE  YOU  SKIPPING?'/) 
READ(5,101)  ISKIP 

DO  172  1*1, NA 
172  AN( I)*ANS(I+ISKIP) 

73  CONTINUE 
77  FORMAT ( 301  ) 

WRITE (5, 84) 

84  FORMAT!*  FOR  PRINTED  OUTPUT  -*/ 

1 * DO  YOU  WANT  ALL,  SOME  OR  NONE?*/) 

READ (5*81)  REPLY 
81  FORMAT ! A 1 ) 

IF(REPLY.EQ.*A')  IPRINTs.TRUE. 

IF!REPLY.EO, 'S')  I PR  NTs . TRUE  . 

I AsO 

500  LIMITsO 
506  I As  I A + 1 

IFUA.GT.NA)  GO  TO  505 
IF ! IA .LE. 1 ) GO  TO  653 
END  FILE  ITAPE 
CALL  RELEASIIOUT) 

65  3 NAMEs! AN! IA) .AND. I AND) .OR.JTAG 
CALL  OFILE! IOUT,NAME) 

WRITE! ITAPE)  AN!IA),NDAYS 
WRITEUOUT)  AN!IA),NDAYS 
701  FORMAT!*  AIRPORT  t *,A3) 

REWIND  IDSK 

UPEN  TEMPORARY  DISK  FILE  FOR  WRITING 
N73='DIS* 

NDSKs(N73.AND.IAND) .OR.JTAG 
CALL  OFILE!lDSK,NDSK) 

WRITE (5,701)  AN(IA) 

READ  A RECORD  FROM  INPUT  TAPE 


> #*  A-8  «• 
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502  READd0EV,501,ERR=4711,ENDs4502)  A ( 1)  * TIME  ( 1 * 1)  *TIME  ( J , 2 ) * 
1 A(2).TIME(2,1), 

1 TIME(2,2)*EQCODE,DAYS,ISUPP,DATES 
501  FORMAT{4X,A3,2X,2I2*8X,A3,2X,2I2*6X*A3,13X,7Il ,I1,5X,4I2) 
IF(ISUPP.EQ.l)  GO  TO  502 

IF(A(1).NE.AN(IA).AND.A(2).NE.AN(IA))  GO  TO  507 
GET  POLLUTION  CLASS  FROM  EQUIPMENT  CODE 
IEQsO 

601  IH)=IEQ  + 1 

IF ( IEQ , GT .172)  GO  TO  604 
IF(EOCODE.EQ.EQCP(IEQ))  GO  TO  602 
GO  TO  601 

602  I PC=PCL ( IEQ  ) 

GO  TO  605 

604  IPC=N0THP 

605  CONTINUE 

CONVERT  EFFECTIVE  AND  DISCONTINUE  DATES  TO  DAY-OF-YEAR 

DO  69  LD=  1 * 2 
DY(LU)=0 
ID2=2*LD 
1D=ID2-1 

IF(DATESdD)  .EQ.O)  GO  TO  61 
IF(0ATES(ID) .EQ.l)  GO  TO  65 
N=DATES( ID ) -1 
DO  66  JD=1,N 

66  DY(LD)=DYCLD)+MNTH(JP) 

65  DY(LU7=UYU,D)*DAIES(1D2) 

GO  TO  69 

61  DY(LD)=DAY(LD) 

69  CONTINUE 

CONVERT  ARRIVAL  AND  DEPARTURE  TIMES  TO  MINUTES  OF  DAY 

DO  85  1*1*2 
HOUR (I)*TIME(I*1) 

85  MINAD(I)*T1ME(1*  l)*60-*-TIME(I,2) 

WRITE  A RECORD  TO  TEMPORARY  DISK  FILE 


LIMIT  IS  A RECORD  COUNTER 


LIMITsLIMIT+1 

* 


nnn  nnn  noooono 
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WRITE(IdSK)  a,houp,minad,ipc,days,oy 

5502  GO  TO  502 
4502  CONTINUE 
IDSsIDSl 
D0FW1»D0FW 
ICNT=0 

IDAY=DAY(1)-1 

HAVE  WE  FINISHED  GETTING  INPUT  FOR  THE  PROFILES 
FOR  THE  CURRENT  AIRPORT? 

550  ICNT=ICNT+1 

IF(ICNT.GT.NDAYS)  GO  TO  500 

REWIND  TEMP  DISK  FILE  AND  OPEN  FOR  READING 

811  REWIND  IDSK 

CALL  IFILE(IDSK,NDSK) 

D0FW1=D0FW1+1 
IF(D0FW1 .EQ.8)  DOF W 1 s 1 
IDS=IDS+1 
IDAY=IDAY+1 

INITIALIZE  PROFILE  ARRAYS  - MINUTE,  QUARTER-HOUR , AND  HOUR 

DO  130  I N = 1 » 2 
DO  131  11=1,1440 

131  V0L(11,IN)=0. 

DO  132  11=1,96 

132  VOLO(I1,IN)30. 

DO  133  11=1,24 

133  V0LH(I1,IN)=0. 

1 30  CONTINUE 

DO  134  11=1,24 
ADR (11)30, 

CONCEN (111=0. 

DO  134  12=1,8 
PMIXCI1,12)=0. 

PMIXPlIl ,I2)=0. 

1 34  CONTINUE 
DO  551  IREC=1#LIMIT 

READ  A RECORD  FROM  DISK 

READ (IDSK)  A,HOUR,HINAD, I PC, DAYS, DY 
C 

C IS  THIS  RECORD  AN  ARRIVAL  OR  A DEPARTURE?? 
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c 

IADs  1 

IF(A(1).NE,AN(IA))  IADs2 

DID  IT  PERATE  TODAY??? 

IF(DYC  I.GT.IDAY)  GO  TO  551 
IF(DY( /)  .LT.IDAY)  GO  TO  551 

ADD  OPERATION  TO  APPROPRIATE  MINUTE 

MINIITE  = MINAD(  IAD)  + 1 
ADDsFLOAT (DAYSCD0FW1 ) ) 

VOL (MINUTE, I AD )s VOL (MINUTE, I AD )♦ ADD 
IHOURsHOUR(IAD)+l 

ADD  OPERATION  TO  APPROPRIATE  POLLUTION  CLASS,  BY  HOUR 

PMIX(IHOUR, IPC)=PMIX(IHOUR, I PC )♦ ADD 
551  CONTINUE 

DO  SOME  ADDITIONAL  CALCULATIONS 


GET  POLLUTION  FRACTIONS 

DO  40  01=1,24 
TOTsO. 

DO  241  J2s 1 , NCLP 

241  TOTsTOT+PMIX(Jl * J2) 

DO  242  J2* 1 , NCLP 
IF(TDT.LT.l .0E-04)  GO  TO  242 
PMIXP(J1 , J2)=PMIX(J1 ,J2)/TOT 

242  CONTINUE 
40  CONTINUE 

GET  QUARTER-HOUR  PROFILES 

DO  45  JQs 1,96 
MIN1=(JQ-1 )#15*1 
M1N2=M1N1+14 
DO  46  JMsMTNl ,MIN2 
DO  46  J2=  1,2 

46  VOLQ(JO,J2)sVOLQ(JQ,J2)+VOL(ilM,J2) 

45  CONTINUE 

C GET  HOURLY  PROFILES  AND  ARRIVAL/DEPARTURE  RATIO 
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DO  47  JH=1,24 

IQl=(JH-l)*4+l 

102*101+3 

DO  48  JQ=IQ1,IQ2 

DO  48  J2= 1 , 2 

V0LH(JH,J2)  = V0LH(JH,J2)+V0LQ(<.'9,J2) 

48  CONTINUE 

IF(VOLH(JH,2).LT.1.0E»04)  GO  TO  47 
ADR(JH)=VOLH(JH, 1 )/V0LH(JH,2) 

47  CONTINUE 

SUM  ARRIVALS  AND  DEPARTURES  FOR  MINUTES,  QUARTER-HOURS, 
AND  HOURS 

DO  20  11=1,1440 

20  WM(I1)«V0L(I1,1)+V0L(I1,2) 

DO  21  11=1,96 

21  WO(Il)tVOLO(Il,l)+VOLQ(Il,2) 

DO  22  11=1,24 

22  WH(I1)=V0LH(I1,1)+V0LH(I1,2) 

GET  HOURLY  CONCENTRATIONS 

DO  30  IH= 1 , 24 
MIN1=(IH-1)*60+1 
MIN2=MIN 1 +59 
DO  32  IM= 1 , 4 
IMS(IM)=0 
AMXCIMJaO. 

DO  31  I 2=M I N 1 , M IN2 

I FLAG=0 

1M2=IM-1 

IF(IM2.EU.O)  GO  TO  35 
DO  7 J = 1 , 1 M2 

IF(TMS(J) .EQ.I2)  IFLAGsl 
7 CONTINUE 

IF(IFLAG.EQ.l)  GU  TO  31 
35  CONTINUE 

AMX(IM)=AMAX1 (AMX(IM) ,WM(I2)  ) 

IF ( (AMX(IM)-WM(I2) ) .LT.l.E-04)  IMSCIM)=I2 

31  CONTINUE 

32  CONTINUE 
FOURsO. 

DO  33  J3=l  , 4 
I=IMS(J3) 

F0IIR=F0UR  + WM(I) 


#•  A-12  ** 
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33  continue 

TUTaO. 

DO  34  J3»MIN1,MIN2 

34  T0TaT0T*WM(J3) 

IF(TOT.LT.l .E-4)  GO  TO  30 
CONCEN(IH)=FOUR/TOT#IOO. 

30  CONTINUE 

GET  TOTAL  DAILY  VOLUME 

TOTAL=0. 

DU  9 JHal ,24 
9 TOTALaTOTAL+WHC JH) 

NORMALIZE  MINUTE-BY-MINUTE  ARRIVALS  AND  DEPARTURES 

DU  910  NORM 1 al , 1 440 
DO  910  NORm2=1,2 

VOL ( NORM  1 , N0RM2 ) = VOL ( NORM 1 , N0RM2 ) /TOTAL 
910  CONTINUE 

CALCULATE  TODAY'S  PEAKING  FACTOR 

PF=0. 

DO  401  IP=  1 , 23 
IP2=IP+1 

PF1=«H(IP)+WH(IP2) 

PFaAMAXl (PF,PF1 ) 

401  CONTINUE 

PFaPF/2 ./TOTAL 

WRITE  PROFILE  INFORMATION  TO  DISK  AND  TAPE 
WRITE ( IOUT  ) IDAY  , WO 

WRITE (ITAPE)  IDAY, TOTAL, VOL, A DR , CONCEN , PM I XP , PF 
PRINTING  OPTION 

IF ( ( .NOT. I PR I NT) .AND, ( .NOT. I PR NT) ) GO  TO  904 
WRITE (3, 901 ) AN ( I A), YEAR, DATE( 1) , IDS, TOTAL, PF 
901  FORMAT! 1H1 /30X, Ai, 2X, 14, ' / ' , 12,  ' / ' * 12/ 

1 30X, 'TOTAL  VOLUME  s 'F10.1,10X,'  PEAKING  FACTOR  ='F12.4) 

DO  902  JHs 1,24 
ARRaVOLHI  JH,  1 ) 

DEPaVOLHC JH, 2) 

MINI s( JH-1 ) * 6 0 ♦ 1 
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MlN2»MlNl*59 

IU2»IQl+3 

I *■  ( I PR  I NT  ) WRITE  ( 3 # 906 ) JH  , WH  ( JH  ) , ADR  ( JH  ) ,CONCEN  ( JH  ) , 
t CPMIXP(JH,J2)#J2»1,8), 

2 (WQCI2)#I2»I01#1Q2), ( WM ( 1 1 ) , 1 1 =MIN 1 , MIN2 ) 

IF(IPRNT)  WRITE ( 3 * 906 ) JH , WH ( JH ) , ADR ( JH ) ,CONCEN ( JH ) , 

1 (PMIXP(JH,J2),J2=1,0) 

906  FORMAT(I3#F6, 0#  ' A/D  RATIO  ='F12.2,'  CONCENTRATION  ='F10.4/ 
1 1 OX  # 8F8 .3/ 

3 4F6.0/2(30F6.0/) ) 

902  CONTINUE 

904  CONTINUE 
GO  TO  550 
505  CONTINUE 
GO  TO  509 
507  WRITE(5» 10) 

10  FORMAT ( * YOU  ARE  SOMEWHAT  MISTAKEN  * 

1 /'  AS  TO  THE  INFORMATION  ON  THIS  TAPE'/) 

509  CONTINUE 

END  FILE  ITAPE 
END  FILE  IOUT 
WRITE (5 , 3 305  ) 

3305  FORMAT ( ' DELETE  FILE  DIS??.DAT  BEFORE  LOGGING  OUT  ') 

GO  TO  4712 

4711  REREAD  47 1 3 # ( ANS ( JRR ) , JRRs 1 , 1 7 ) 

4713  F0RMATC1X, 16A5,A3) 

WRITE (5, 471 3)  ( ANS ( JRR ) , JRR= 1 , 1 7 ) 

GO  TO  502 

4712  CONTINUE 
END 
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* FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEJPCLUS.F4  [4255,516]  lB-M«y-7< 


PCLUST.F4 

DIMENSION  ARRAY ( 25000 ) 

DIMENSION  MNTH (12) 

INTEGER  AIR, YEAR 

COMMON/KDEV/K WHERE, MNTH, YEAR, NORM 
DATA  ICL, I AND/ "4 1630, "777777700000/ 

DATA  MNTH/31, 28, 31, 30, 3 1,30, 31, 3 1,30, 3 1,30, 31/ 
LOGICAL  NORM 
WRITEC5, 101 ) 

101  FORMAT ( ' INPUT  FILE  NAME?'/) 

READ (5,102)  NAME 

102  FORMAT ( A5  ) 

CALL  IFILE ( 20 , N AME ) 

WPITE(5, 105) 

105  FORMAT C * DO  YOU  WANT  TREES  PRINTED?'/) 

KWHERE=5 

READ (5,205)  REPLY 
205  FORMAT ( A 1 ) 

IFCREPLY.FQ.  'N')  KWHERE  = 0 
104  FORMAT ( I ) 

WRITE(5, 106) 

106  FORMAT ( ' WHAT  YEAH?'/) 

READ (5,104)  YEAR 
IF(YEAP.LT.1900)  YEAR=YEAR*1900 
IF(YEAR/4#4.EQ.YEAR)  MNTH(2)=29 
YEAR=YEAR-1900 

WRITE(5, 103) 

103  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 

READ (5,104)  NA 
WRITE(5,107) 

107  FORMAT C ' DO  YOU  WANT  NORMALIZED  DATA?'/) 

READ ( 5 , 108)  REPLY 

108  FORMAT ( A 1 ) 

NORM*. FALSE. 

IFCREPLY.EQ. 'N')  NORMS, TRUE. 

DO  55  JA=1,NA 
READ ( 20 ) AIR, NDA YS 
NAMEC=(AIR.AND.IAND) .OR.1CL 
CALL  OF ILE ( 2 1 , NAMEC ) 

WRITE  TO  21  NC ( = 3 ) , MDC ( 25 3 ) , VOLD (253)  * DAILY  VOLUMES 


SUM  QUARTER-HOURS  TO  C,ET  DVOL(N) 


IN  CLSSUB 
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CALL  CtSSUb(AIR, ARR*Y. NDAYS, 96) 
55  CONTINUE 
END 


non  o o o o 
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subroutine  CLSSUB( air, ARRAY, NROWS,NCOLS) 

dimension  ARRAY (NPOWS, NCOLS) » I DAY (253),J0(2), I DATE (2,2), 

1 NDC(253)*DVOL(253),MNTH(12),NAME(253) ,THRES(253) , I A C 9 6 ) 
COMMON/KDE V/K WHERE, MNTH, I YEAR, NORM 
LOGICAL  NORM 
INTEGER  AIR 

DO  5 Jsl,NROWS 

READ (20)  IDAY(J), (ARRAY (J,K),K=l,NCOLS) 

DO  1101  J2* 1 , NCOLS 

1101  IA( J2)=ARRAY(J, J2) 

WRITE(5, 1 102)  IA 

1102  FORMAT ( 24  1 3 ) 

IF ( NORM ) GO  TO  5 

NORMALIZE 

SUMxO. 

DO  15  JS=1, NCOLS 

15  SUM=SUM+ARRAY( J, JS) 

DO  16  JS=1,  NCOLS 

16  ARRAY (J, JS)=ARRAY(J, JS)/SUM#j00. 

5 CONTINUE 

JJ() )sl 
JJ(2)=NROWS 
DO  50  jsl,2 
N=JJ(J) 

NDAY=IDAY(N) 

MONTHxl 

90  1F(NDAY.LE.MNTH(M0NTH)  ) GO  TO  80 
NDAY=NDAY-MNTH( MONTH) 

MONTHsMONTH+1 
GO  TO  90 
80  CONTINUE 

1DATE( 1 , J ) sMONTH 
IDATE(2,J)=NDAY 
50  CONTINUE 

IF(KWHEPE)  66,66,65 

65  CONTINUE 

WRITE (KWHERE, 60)  AIR,  IDATE( 1 , 1 ) , ID  ATE ( 2 , 1 ) , I YEAR, 

1 IDATE(1»2),IDATE(2»2)»IYEAR 

60  FORMAT(///10X, ' AIRPORT  5 ' A 3 /5X , 1 2 , * / ' , 12 , ' / ' , 1 2 , 5X , 'TO ' , 

1 5X, 12,'/', 12,'/', 12) 

66  CONTINUE 

CALL  EUCLlD(ARRAY,N ROWS, NCOLS) 

CALL  HICLUS(NAME,THRES,NPOWS) 

IF (KWHERE)  76,76,75 
75  CONTINUE 


#*  B-3  #• 
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Call  prtree (name, tubes, thres.nrows.kwhere) 

76  CONTINUE 

CALL  YAWN(NAME,THRES,NOC,NROwS) 

DO  501  J 1 1 = 1 , NROMS 
DV0L(J11 )=0. 

DO  499  Jl2sl,NCOLS 

499  D VOL( J 1 1 )=DV0L(J1 1 ) ♦ARRAY (J1 1 , J 1 2 ) 

501  CONTINUE 
NC  = 3 

WRITE(21 ) NC , NDC , DVOL 

RETURN 

END 
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PRFMRG.F4 

THIS  PROGRAM  MERGES, FOR  EACH  OF 

THIRTY-ONE  AIRPORTS,  EIGHT  DISK  FILES,  EACH  CONTAINING 
QUARTER-HOUR  PROFILES  FOR  ONE  MONTH,  PREPARATORY 
TO  CLUSTERING.  THIS  FILES  WERE  PRODUCED  BY  OAGPRF. 

DIMENSION  ARRAY(96),AN(8),ND(8),NCD(8,2) 

DIMENSION  ITAGC8) 

DATA  IAND,IPM,ITAG/"777777700000,"50232,"31142,"31144, 

1  "31146, "31 150, "31542, "31544, "31546, "3 1550/ 

INTEGER  AN,ANS(31) 

DATA  ANS/'BOS', 'DC A', 'BAL', 'EWR'» 'JFK'» 'LG*', 'iAH',  'PHL'* 

1 'PIT', 'IAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL', 'CLT', 

2 'ORD', 'DTW', 'MSP', 'CLE', 'STL ' , 'MSY ' , 'DAL' , 'DEN ' , 'SLC ' , 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

WRITE(5, 104  ) 

104  FORMATC'  TYPE  IN  LOCATIONS  IN  LIST  OF', 

1'  FIRST  AND  LAST  AIRPORTS  WANTED'/) 

READ (5,114)  N A 1 , N A 2 
114  FORMAT (21) 

102  FORMAT ( A5  ) 

WRITE ( 5 , 204  ) 

204  FORMAT( ' NUMBERS  OF  FIRST  AND  LAST  FILES  TO  BE  MERGED?'/) 
READ (5,1 14)  NF1 , NF2 
NFsR 

105  FORMAT ( I ) 

DO  100  IA»NA1,NA2 
NAME  1 s ANS ( I A ) 

DO  10  IsNFl ,NF2 

NAMF.=  (NAME)  .AND.  I AND)  .PR.ITAG(I) 

IDEVsI+15 

CALL  ASSDEVCIDEV,  'DSK') 

CALL  IFILE( IDEV,NAME) 

10  CONTINUE 

MAMF.0»(NAMF1  .AND.  I AND)  .OR.  I PM 
CALL  OFILE(24,NAMEO) 

READ  AIRPORT  AND  NUMBER  OF  DAYS 
FROM  EACH  INPUT  FILE 

DO  20  I xNFl , NF2 
IDEV=I*15 

REAIHIDEV)  AN  ( I ) , ND  ( I ) 

WRITE(5,2020)  AN(I),ND(I) 
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2020 

20 


F0RMAT(5X,A3,I5) 

continue 


4 


CHECK  THAT  AIRPORT  IS  THE  SAME  ON  ALL  FILES 

NF3=NF1+1 

1)0  30  IsNF  3 , UF2 

N2=I-I 

IF(AN(N2).NE.AN(NF2))  GO  TO  150 
30  CONTINUE 

SUM  DAYS  FROM  INPUT  FILES 
NDAYS=0 

DO  473  IADD=NF1,NF2 
473  NPAYSsNDAYS+NDlIADD) 

WR ITE ( 24 ) AN(NF1 ) ,NDAYS 
DO  40  IsNF 1 * NF2 
IDEV=1 5+1 
JDsND(l) 

DO  41  Jsl.jD 
READ ( IDE V ) IDAY , ARRAY 
WRITE  C 2 4 3 IDAY, ARRAY 
IF(J.EQ.l)  NCD ( I , J ) =1 D AY 
IF(J.EO.JD)  NCD (1,2) slDA Y 
41  CONTINUE 
40  CONTINUE 

WRITE(5, 202)  A N ( N F 1 ) 

202  FORMAT!'  AIRPORT*  'A3) 

WRITE (5, 201)  C (NCD(I, J), Jsl ,2) ,I=NF1,NK2) 

201  FORMAT  ( ' DAY  OF  YF.AR  ',15,'  TO  ',15) 

GO  TO  250 

150  WPITE ( 5 , 1 55  ) AN 

155  FORMAT ( ' AIRPORTS  INCONSISTENT  ' /20X , 3 ( A 3 , 5X ) ) 
250  CONTINUE 

END  FILE  24 
DO  107  I=NF l , NF2 
I DE V=I ♦ 1 5 
CALL  RELEAS(IDEV) 

107  CONTINUE 

CALL  RELEAS ( 24 ) 

WRITE! 5, 127)  ANS(IA) 

127  FORMAT! ' AIRPORT: 'A3, IX, 'DONE') 

100  CONTINUE 
END 
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# FOLLOWING  TEXT  PRINTED  FROM  FILF  DSKE:CLUSTR,F4  [4255,516]  18-M«y-7t 


CLUSTR.F4 

THIS  PROGRAM  CLUSTERS  QUARTER-HOUR  PROFILES 
READ  FROM  DISK  FILES  WRITTEN  BY  PRFMRG. 

DIMENSION  ARRAY ( 1 2000 ) 

INTEGER  AIR 

common/kdev/kwhere,norm 

DATA  ICL, IAND/"416 10, "777777700000/ 

COMMON  /CLUS/NC, NOTREE 
COMMON  /AIRPL/AIR 
LOGICAL  NORM, NOTREE 
INTEGER  AIR1,AN(31) 

DATA  AN/'BQS'* 'DCA  ' » 'BAL ' » 'EWR', 'JFK', 'LGA' ,'IAH','PHL', 

1 'PIT', MAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL',  'CLT', 

2 'ORO', 'DTW', 'MSP', 'CLE', 'STL','MSY','DAL','DEN','SLC*, 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

DATA  IPM/ "50232/ 

WRITEC5, 105) 

105  FORMATC'  DO  YOU  WANT  TREES  PRINTED?'/) 

KWHEI>E  = 5 

RE AD ( 5 , 205  ) PEPLY 
205  FORMAT ( A 1 ) 

IF(REPLY.EQ.'N')  KWHERE«0 
104  FORMAT (21) 

WRITE (5, 100) 

100  FORMAT ( ' HOW  MANY  CLUSTERS?'/) 

READ (5, 104)  NC 
WP ITE ( 5 , 1 02 ) 

102  FORMAT ( ' SHALL  I SAVE  THE  TREES?'/) 

RE AD ( 5 , 108)  REPLY 

NOTREEs. TRUE. 

IF(REPLY.EQ.'Y')  NOTREEs. FALSE. 

WRITEC5, 103) 

103  FORMATC'  LOCATIONS  IN  LIST  OF  FIRST  AND  LAST  AIRPORT?'/) 
READ (5,104)  NA1,NA2 

WRITE(5, 107  ) 

107  FORMATC'  DO  YOU  * ANT  NORMALIZED  DATA?'/) 

READ (5,108)  REPLY 

108  FORMAT(Al) 

NORMs. FALSE. 

ifcpf.ply.eq.'n')  norms. tpue. 

DO  55  JAsNA1,NA2 
AIR  1 sAN ( J A ) 

NAME1s(AIR1 .AND. I AND) .OR. I PM 
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Call  lfile(2o, namei> 

READ ( 20 ) AIR/NDAYS 
NAMEC*(AIR.AnD.IAND).OH.ICL 
CALL  0F1LE(2J,NA*EC) 

CALL  CLSSUB (AIR/ ARRAY* NDAYSf 96) 
CALL  RELEASC20) 

55  CONTINUE 
END 
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SUBROUTINE  CLSSUB ( AIR, ARRAY, NROWS, NCOLS) 
DIMENSION  ARRAY (NROWS, NCOLS ),IDAY( 1 20 ) , 

1 NDC(120),DVOL(120),NAME(120)»THRES(120),IA(96) 
C OMMON/KDEV/ KWHERE , NORM 

common/clus/nc 

LOGICAL  NORM 
INTEGER  AIR 

DO  5 J=l, NROWS 

READ (20)  IDAY(J), (ARRAY(J*K), K=l, NCOLS) 
NORMALIZE 


SUM=0. 

DO  15  JS=1, NCOLS 

15  SUM=SUM+ARRAY(J# JS) 

DVOL(J)=SUM 

IF ( NORM ) GO  TO  5 
DO  16  JS=l»NCOLS 

16  ARRAY (J, JS)=ARRAY( J, JS) /SUM# 100. 

5 CONTINUE 

IF (KwHERE ) 66,66,65 

65  CONTINUE 
WRITE(KWHtpE,60)  AIR 

60  FORMAT(///10X, ' AIRPORT  ! 'A3//) 

66  CONTINUE 

CALL  EUCLIDURRAY,  NROWS,  NCOLS) 

CALL  HICLUS(NAME,THRES, NROWS) 

IF ( KWHERE ) 76,76,75 

75  CONTINUE 

CALL  PRTREE(NAME,THRES,THRES, NROWS, KWHERE) 

76  CONTINUE 

CALL  SUSPCL(NAME,TMRES,NDC, NROWS) 

wPITE(21  ) NC , NDC  * D VOL 

RETURN 

END 


» 
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subroutine  euclid c am ftT#N row, ncol) 
DIMENSION  AmAT(NROW.NCOL) 

COMMON  /CLUST/  PROX(BOOO) 

INDEXaO 

DO  30  1=2 , NROW 
11*1-1 

DO  20  J=1,II 
DIST=0 

INDEX=INDEX*1 
DO  10  K=1,NC0L 

DIST=DIST+(AMAT(I,K)-AMAT(J,K) )*#2 

10  continue 

PROX(INDEX)=SORT(DIST) 

20  CONTINUE 
30  CONTINUE 
RETURN 
END 


L 
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SUBROUTINE  HlCLUS(NAME,THRES,NROWS) 

DIMENSION  TREE (120, 3), LINE (120) 

DIMENSION  LAMBDA! 1 20 ), THRES ( NROWS), NAME (NROWS), OUTPUT (120# 3) 
COMMON  /CLUST/  PROX ( 8000 ) 

IPLACE(K)a(3,+SORT(9,-8,#(2. -FLOAT (K))))/2, 
JPLACE(K)=K-(IPLACE(K)-1 ) * ( IPLACE ( K ) -2 ) /2 
DO  4B3  JJ  J*1 # NROWS 
483  LINE(JJJ)=0 


NsNROWS-1 
K0UNT=1 
LITTLE* 1 , 

BIG=0. 

NUMBER=NPOWS*(NROWS-1 )/2 

C DETERMINE  MAXIMAL  ELEMENT  OF  MATRIX  (BIG) 

DO  1 KHLsl, NUMBER 
IF(BIG.LT.PROX(KHL) ) BIG=PHOX(KHL) 
l CONTINUE 

RIG=2.#BIG 

C DETERMINE  PRESENT  MINIMAL  ELEMENT  OF  MATRIX 


2 DO  3 LOO* 1, NUMBER 

IF  (PROX(LITTLE)  .LT.  PROX(LOO))  GOTO  3 
LITTLE=LOO 

3 CONTINUE 

TREE ( KOUNT, 1 )*PROX( LITTLE) 

TREE  ( (COUNT  • 2)*  I PLACE  ( LITTLE) 

TREE (KOUNT, 3 )*JPLACE( LITTLE) 

I F ( KOUNT  , EG  , NROWS”  1 ) GOTO  5 
PP0X(L1TTLE)*BIG 
KOUNT=KUUNTtl 
C 

C DERIVF  MEAN  OF  CLUSTERED  ROWS 
C 

DO  4 K2=l, NpOWS 

IF ( IPLACE(LITTLK) .EQ.K2)  GOTO  4 
IF(JPLACE(LITTLE) .E0.K2)  GOTO  4 
IK* IS02TR ( IPLACE( LITTLE ) ,K2) 

JK=ISU2TR( JPLACE( LITTLE ) ,K2) 

PROX( IK)=(PR0X(IK)+PR0X(JK) )/2, 

PROX ( JK ) =B IG 

4 CONTINUE 
GOTO  2 

C INITIATE  SORTING  PARAMETERS 
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5 LEVEL2 1 
LAMBDA(l)=N 
THRES(l)aTREE(1 #2) 

1 = 1 

K = 2 

C BEGIN  SORTING  PROCESS 
DO  6 M6  = l > 3 

OUTPUT! 1#M6)=TREE!1,M6) 

TREE(1»M6)=0. 

6 CONTINUE 

10  IF!TREE(I,2) .NE.THRES(LEVEL) ) GOTO  20 
LEVEL=LEVEL+1 
THRES(LEVEL)=TREE(I,3) 

LAMBDA! LEVEL )=I 

DO  11  Mll=l,3 

OUTPUT (K, Ml  1 )=TREE(I,M11) 

TREE !I»Mll)sO, 

11  CONTINUE 
IFIK.EQ.N)  GOTO  60 
K=K+1 

1 = 1 

GOTO  10 

20  IF! I.LT.LAMBDA1LEVEL) ) GOTO  30 
IF ! LEVEL.EO. 1 ) GOTO  50 
LEVEL=LEVEL- 1 
GOTO  10 

30  IF ! LEVEL.NE. 1 ) GOTO  40 

IFITREEH,  3)  .EO.THRKS(LEVEL)  ) GOTO  50 
40  1=1+1 

GOTO  10 

50  THPES(LEVEL)=TPEE(I,2) 

DO  51  M51=l,3 

OUTPUT! K, M5 1 JrTREE! I, M51  ) 

TREE !I#M51)=0. 

51  CONTINUE 

IFIK.EQ.N)  GOTO  60 
K=K  + 1 
1 = 1 

GOTO  10 

C STORE  SORTED  THRESHOLD  VALUES  IN  THRFS 

60  DO  70  M70=1,N 

THRES(M70)=OUTPUT(M70, 1 ) 
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70  CONTINUE 

C SORT  CELL  NUMBERS  FOR  PRINTING 

186  NAME(l)=OUTpUT(l,2) 

NNsNAME ( 1 ) 

LINE(NN)=1 

name  1 2 ) soutput ( i # 3 ) 

NNsNAME ( 2 ) 

LINE(NN)»1 

1)0  200  I0TAs3,NR0MS 

NN=0UTPUT(I0TA-1,2) 

IF(LINECnN).EQ.I)  GOTO  190 

NAME(IOTA)=NN 

LINE ( NN ) tl 

GOTO  200 

190  NAME(I0TA)=0UTPUT(1UTA-1,3) 
NNsNAME ( IOTA ) 

LINE (NN )sl 
200  CONTINUE 
RETURN 
END 
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FUNCTION  ISQXTR(IfJ) 
IF(I.GT.J)  OOTO  10 
ISQ2TR*( (J-I)*(J-2)/2)*I 
IF(I.EQ.J)  ISQ2TR=0 
RETURN 

10  lSQ2TR=C(I-l)#CI-2)/2)+J 

RETURN 
END 
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SUBROUTINE  PRTREE ( NAME, TAG, PRTLST, M, K WHERE ) 

DIMENSION  TAG(M),  MU! 120) , MARK! 120) ,NAME!M) , LAMBDA! 120) 
DIMENSION  LETTER! 150), IMARK ! 150), INTER! 3 ),LICEI 3) 
DIMENSION  PRTLST(M) 

LOGICAL  FLAG 
DATA  KBLANK  /*  V 
DATA  KDASH  /'-'/ 

DATA  KQUOTE  /••••/ 

DATA  KPOINT 
DATA  KI  /'IV 
ICE=0 
KRYPTOsO 
DO  445  JQs 1 , M 
MARK(JQ)=0 
MU(JO)=0 
LAMBDA ( JO ) *0 
445  CONTINUE 

DO  545  JQ3l,150 
IMARK(JQ)so 
LETTER! JQ)=0 
545  CONTINUE 
NsM-1 
C 

C CHECK  WHETHER  OUTPUT  IS  TO  BE  ON-LINE  OR  OFF-LINE 
C 

IFIKWHERE.E0.3)  GOTO  1234 
DEVICE=59. 

KDEV 1 =64 
KDEV2=65 
GOTO  5678 

1234  DEVICE=99. 

KDEV1 =104 
KDE V2=l 05 
5678  BIG=0 

DO  70  M70=1,N 

IF!TAG!M70).LT.BIG)  GOTO  70 
BIG=TAG!M70) 

70  CONTINUE 
C 

C NORMALIZE  BOUNDS  FOR  PRINTING  ON  TTY 
C 


SMALL=BIG 
DO  80  M80= 1 , N 

IF(TAG!M80) ,GT. SMALL)  GOTO  80 
SMALL3TAG(M0O) 

80  CONTINUE 
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DO  90  M90*1,N 

LAMBDA (M90)»4.+ (TAG (M90) -SMALL) *DEVICE/ (BIG-SMALL) 
90  CONTINUE 

DETERMINE  HOW  FAR  TO  THE  RIGHT  EACH  LINE  EXTENDS 


IFIRSTaO 

LARGExO 

1st 

100  IFCMARK(I).NE.O)  GOTO  110 

IF  (LARGE  .GT.LAMBDA(D)  GOTO  130 
MOONsI 

LARGE=LAMBDA(I) 

GOTO  130 

110  IF(MARK(I) .EQ.KRYPTO)  GOTO  120 
IF(LARGE.Etl.O)  GOTO  130 
MU ( MOON )xLAMBDA (JUNE) 
lCExICE+1 

MAPK(M00N)=KRYPT0*1 
LARGExO 
GOTO  130 
120  JUNExl 

IF(LARGE.KU.O)  GOTO  130 
MU(MUON)=LAMBDA(I ) 

ICfcslCE+1 

LARGE=0 

M ARK ( MOON )xkPYPT0+1 
130  IF(I.EQ.N)  GOTO  140 
Ixltl 

GOTO  100 

140  IF(ICE.EQ.N)  GOTO  220 

I F ( IF  I RST . Eu . 1 ) GOTO  150 

MU(MOON)sKDEVl 

ICExICE^I 

MARK ( MOON ) x 1 

JFIPST-l 

GOTO  160 

150  IF(LARGE.EQ.O)  GOTO  160 
MU ( MOON )sLAMBDA( JUNE) 

ICF=ICE+1 

MARK ( MOON )xKRYPT0+1 
lbO  KRYPTOxKRYPTO+1 
1 = 1 

LARGExO 
GOTO  100 

220  DO  230  M230s2,N 
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225  MARK(M230)*1 

IFCLAMBdA(M230).GT.LAMBdA(H230-1))  GOTO  230 
MARK(M230)»0 
230  CONTINUE 
MARK ( 1 ) *0 


4 


C BIG  LOOP  STARTS  HERE 

DO  500  MOO* 1 , N 
FLAG*. FALSE, 

C BLANK  OUT  THE  LINE 

260  DO  270  M270sl , KDEV2 
270  LETTER (M270)*KBLANK 
IF (FLAG)  GOTO  290 

LICE(l)*NAME(MOO)/lOO 
LICE ( 2 )* (NAME (MOO) -LICE (1)»1 001/10 
LICE(3)*NAME(M00)-LICE(1)*1 00-LICE (23*10 
ENCODE ( 1,1003,INTER(1))  LICE(l) 

ENCODE (1,1003, INTER ( 2 ) ) LICE ( 2 ) 
ENC0DE(1,1003,INTER(3))  LICE(3) 
1F(MARK(M00).EQ.1)  GOTO  280 
LL=LAMBDA(M00)-3 
LETTFR(LL)=INTER(1) 

LL*LLtl 

LETTER(LL)slNTERU) 

LL*LL+ 1 

LETTER(LL)*INTER(3) 

LL=LL+1 

LFTTER(LL)*KDASH 
LL=LL+1 

LETTER(LL)*K POINT 

IF ( LAMBDA ( MOO) ,EQ. LAMBDA (MOO- 1 ) ) LETTER (LL)*K I 

IMARK(LL)*1 

GOTO  320 

280  NARKsl 

DO  285  M285*1,KDEV1 

IF(NARK.EU.O)  GOTU  285 

IF(IMaRK(M285).EQ.O)  GOTO  285 

I MARK (M285 ) *0 

NAHKbO 

LL=M285-4 
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285  CONTINUE 

LETTER(LL)=INTERC1) 

LL*LL+1 

LETTER(LL)=INTER(2) 

LL=LL+ 1 

LETTER(LL)=INTER(3) 

LL=LL+1 

LETTER ( LL) =KD ASH 
LL*LL+1 

LETTER (LL)*K QUOTE 

IF(LAMBDA(MOO) .LT.MU(MOO) } GOTO  320 

LETTER(LL)=KI 

IMAPK (LL)=1 

GOTO  320 

GOTO  320 

280  LL=LAMBDA(MOO)tl 
IMARK (LL)=1 

IF(  LAMBDA(MOO)+2.GT.MU(MOO) ) GOTO  301 
295  DO  300  M300=LAMBDA(MOO)+2#MU(MOO) 

300  LETTER(M300)=KDASK 

301  LL  = MU ( MOO ) ♦ 1 
IF(LL.NE.KDEV2)  GOTO  305 
IMAPK(KDEV1)=1 
LETTER(KDEV?)sKDASH 
GOTO  320 

305  IF ( IMARK (LL).EQ.O)  GOTO  310 
LETTER(LL)=KQUOTE 

IF(MIUMOO) .EQ.LAMBDA(M00+1 ) ) GOTO  3055 
IF(LAMBDA(MOO) .LT.MU(MOO) ) GOTO  306 
3055  LETTER(LL)=KI 

GOTO  320 

306  IMAHK (LL) =0 
GOTO  320 

310  LETTER (LL)*KPOI NT 
IMARKCLL)=1 

320  DO  340  M340=1,KUEV1 

IF(IMARK(M340) .EQ.O)  GOTO  340 
IF(M340.EQ.LL)  GOTO  340 
LETTER(M340)=KI 
340  CONTINUE 

350  IF(FLAG)  GOTO  360 

WRITE(KV»HERE,  1000)  ( LETTER  ( KOW  ),  KOW=  1 ,KDEV2) 
355  FLAG*. TRUE. 
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GOTO  260 

360  WR1TE(K WHERE* 1001)  PRTLST(MOO)  , (LETTER(KOW)  ,K0W*1 ,KDEV2) 

500  continue 

DO  370  M370sl * KDEV2 
370  LETTER(M370)=KBLANK 
LICE(1)»NAME(M)/100 
LICE(2)=(NAME(M)-LICE(1)#100)/10 
LICE(3)=NAME(M)-LICE(1 )»100-LICE(2)#10 
ENC ODE(1*1003, INTER (1))  LICE(l) 

ENCODE! 1 * 1003* INTER(2  ) ) LICE(2) 

ENCODE! 1 , 1003* INTER! 3) ) LICE ( 3 ) 

LL=LAMBDA!N)-3 
LETTER ( LL)sINTEP!l) 

LLSLL+1 

LETTER (LL)aINTER! 2) 

LL=LL+1 

LETTER!LL)=INTER(3) 

ll=ll+i 

LETTER!LL)=KDASH 

ll=ll*i 

LETTER  ILL )=KUUOTE 

WR1TE(KWhERE,  1000)  ( LETTER  I KOW ) ,K0W  = 1,KDEV2) 

RETURN 

1000  FORMAT(T9*104A1) 

1001  FORMAT (E9. 3, TO. 104A1) 

1003  FORMAT ! II) 

RETURN 

END 
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SUBROUTINE  YAWN ( NAME, THRES,NDC,NUM) 

DIMENSION  NDC(NUM),NAME(NUM),THRES(NUM), INDEX(2) 

name  is  the  array  of  day  numbers 

THRFS  IS  THE  ARRAY  of  (SURPRISED  THRESHOLD 
VALUES 

INDEX  IS  WHAT  YOU  GET  OUT 
NUM  IS  250-WHATEVER 
GOOD  LUCK 

NDC(I)  ASSIGNS  A CLUSTER  NUMBER  TO  DAY  I 

lenin=o 

KGB  = 0 
CCCP=0. 

1 DO  10  MARXsl , NUM-1 

IF(THRES(MARX) .LT.CCCP)  GO  TU  10 
IF (MARX. EO. LENIN)  GO  TO  10 
CCCP=THRES(MARX) 

KGBsMARX 
10  CONTINUE 

IF(LENIN.NE.O)  GO  TO  20 

LENIN=KGB 

INDEX  ( 1 )=KC,B 

CCCP  = 0. 

GO  TO  1 

20  INDEX ( 2 ) =KGH 
1 1 sINDEX ( 1 ) 

I2=INDEX(2) 

IFUl.LT. 12)  GO  TO  40 
12  = 11 

11  = 1 NDEX ( 2 ) 

40  CONTINUE 

DO  28  1=1,11 
JsNAME(I) 

28  NDC ( J)=l 

DO  29  1=11+1,12 
J=NaME(I) 

29  NDC ( J ) =2 

DO  30  1=12+1, NUM 
J=NAME(I) 

30  NDC ( J ) =3 
RETURN 
END 
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SUBROUTINE  SUSPCL ( NAME , THRES, NDC , NUM ) 

LOgiCAL  NOTREE 
COMMON/AIRPL/AIR 
COMMON  /CLUS/NC, NOTREE 
INTEGER  AIR 

DATA  IST# I AND/"51650, "777777700000/ 

DIMENSION  IORD (120) 

DIMENSION  NDC(NUM) , NAME (NUM) ,THRES(NUM) , INDEX! 0/10) 
IF ( NOTREE ) GO  TO  250 
CALL  ASSDEV ( 16  » 'DSK  ' ) 

NAMFFsIST.OR. (AIR. AND. I AND) 

CALL  OFILE(16, NAMED 
WRITE ( 16  ) NUM 
WRITE! 16)  NAME,THRES 
CALL  RELEASC16) 

250  CONTINUE 

IF(NC,E0.3)  GO  TO  7000 
NTHsNUM-1 
DO  200  IN=1,NTH 
200  I QRD ( I N ) = I N 
1 = 0 

I S A VE=0 
800  I=IsAVE+l 
I S A VE= I 
1 = 1-1 
600  1=1+1 

IF(T.LT.l)  GO  TO  800 
IFCI+1 ,Gt»NtH)  GO  TO  500 
11= I OPD ( I ) 

I2=IORD(I+l ) 

IF  C THRES ( 1 1 ) ,LE.THRES( 12 ) ) GO  TO  800 
IORD (I+1)=I1 
I OPD ( I ) = I 2 
1 = 1-2 
GO  TO  600 
500  CONTINUE 


i 


NBREAKsNC-1 
NsNTH-NBREAK+1 
DO  201  IBPK=1 , NBREAK 
INDEX(IBRK)=IORDlN) 

N = N+  1 

201  CONTINUE 
1=0 

ISAVEVO 
880  I=ISAVE+1 
ISAVE=I 
1 = 1-1 


•*  B-21  ** 


clustering  programs 


660  1=1+1 

IKI.LT.l)  GO  TO  880 

IFU  + l.GT.NBRFAK)  GO  TO  550 

11=1 NDEX ( I ) 

12=1 NDEX ( I ♦ 1 ) 

JFdl.LE.I2)  GO  TO  880 
INDEX ( I4l ) =1 1 
INDEX ( I ) = 1 2 
1 = 1-2 
GO  TO  660 
550  CONTINUE 
1NDFX(0)=0 
INOE’X  (NC  )=NUM 
DO  202  1 = 1 » NC 
L1MIT1=INDEX(1-1 )+l 
LIMn2  = INDEX(I) 

DO  202  LIM=LIMIT1 ,LIMIT2 
JaNAMECLIM) 

NDC ( J ) =1 
202  CONTINUE 
GO  TO  7001 

7000  CALL  XAWN(NAFE,THRFS,N0C,NUM) 

7001  CONTINUE 
RETURN 
END 
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# FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEXPRFPLT.F4  [4255, 516J  18-May-7l 


PRFPLT.F4 

DIMENSION  ARRAY(25000) 

DIMENSION  MNTHU2) 

integer  year 

COMMON/KDEV/KWHERE,MNTH, YEAR, NORM 
DATA  MNTH/3 1,28, 31, 30, 31, 30, 31,31,30,31,30,31/ 

LOGICAL  NORM 
WRITE(5, 101  ) 

101  FOPMATt'  INPUT  FILE  NAME?'/) 

PEAD(5, 102)  NAME 

102  FOPMAT ( A5 ) 

CALL  IFILE(20,NAME) 

104  FORMAT ( I ) 

WRITEC5, 106) 

106  FORMAT ( ' WHAT  YEAR?'/) 

READ (5, 104)  YEAR 

IF ( YEAR. LT. 1900)  YEAR=YFAR+ 1 900 
IF (YEAR/4*4,EQ,YEAR)  MNTH(2)=29 
YEAF=YEAP-1900 

WRITE(5, 103) 

103  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 

READ (5,104)  NA 
WPITE(5, 107) 

107  FORMAT ( ' DO  YOU  WANT  NORMALIZED  DATA?'/) 

RFAD(5,108)  REPLY 

108  FORMAT(Al) 

NORMS. FALSE. 

IF (REPLY. EQ, 'N' ) NORMS. TRUE. 

DO  55  JA=1,NA 
READ ( 20 ) AIR, NDA YS 
CALL  PLTSUB(AIR, ARRAY, NDAYS, 96) 

55  CONTINUE 
END 

i 


■ 
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SUBROUTINE  PLTSUB(AIR,ARRaY,NROWS,NCOLS) 

DIMENSION  111(3), 112(3) 

DATA  111,112/1,30,92,29,91,241/ 

DIMENSION  ARRAY (NR0WS,NC0LS) , JDAY(241 ) , JJ ( 2 ) , IDATE ( 2 , 2 ) , 

1 MNTH(12), NAME (241), THRES (241),IA(9b), 

2 IPLT(10),YPLT(9b),NDJA(241  ) 
common/kdev/kwhere,mnth,i year, norm 
LOGICAL  NORM 

DO  5 J=1 , NROWS 

READ (20)  IDAY(J), (ARRAY ( J , K ), K= 1 , NCOLS ) 

DO  1101  J2S 1 , NCOLS 

1101  IA( J2)sARRAY(J, J2) 

WRITE(5, 1102)  IA 

1102  FORMAT (2413) 

IF (NORM)  GO  TO  5 

NORMALIZE 

SUMsO. 

DO  15  JS=1, NCOLS 
15  SUM=SUM+ARRAY(J, JS) 

DO  16  JS=1, NCOLS 

lb  ARRAY (J, JS)=ARRAY( J, JS)/SUM#100. 

5 CONTINUE 
JJ(1 )=1 
JJ(2)=NR0WS 
DO  50  Jrl,2 
N=JJ(J) 

NDAY=IDAY(N) 

MONTH= 1 

90  IF(NDAY.LE.MNTH(MONTH) ) GO  TO  80 
NDAY=NUAY-MNTH(MUNTH) 

MONTHs.MONTH  + 1 
GO  TO  90 
80  CONTINUE 

IDATF(1,J)=M0NTH 
IDATE(2, J)=NDAY 
50  CONTINUE 

wPITE (5,60)  AIR, IDATE (1,1), IP ATE (2,1), I YEAR, 

1 IDATE(1,2),IDATE(2,2),IYEAR 

60  FORMAT(///lOX, ' AIRPORT  S ' A 3 /5X , 1 2 , ' / * , 1 2 , ' / ' , 1 2 , 5X , 'TO ' , 

1 5X, 12,'/*, 12,'/', 12) 

WRITK(5, 1407) 

1407  FORMAT ( ' WILL  THIS  RUN  AVERAGE  FOR  CLUS1ERS?'/) 

READ(5,1408)  THIS 
1406  FORMAT ( A 1 ) 

IF(THIS.KO.'Y')  GO  TO  1410 
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WRlTE(5*1402) 

1402  FORMAT! 10X'  HOW  MANY  DAYS  DO  YOU  WANT  PLOTTED?'/) 
READ(5 , 1 403)  NPLT 

1403  FORMAT (101) 

WRITEC5, 1404) 

1404  FORMAT ( * WHICH  ARE  THEY?'/) 

BEAU(5» 1403)  (IPLT(K),Ksl,NPLT) 

DO  1405  JPsl t NPLT 
LPLT=IPLT(JP) 

DO  1406  J7sl,NC0LS 
YPLT(J7)=ARRAY(LPLT,vJ7) 

1406  CONTINUE 

CALL  XYPL0TCl.,9b.,l.#YPLT) 

1405  CONTINUE 
RETURN 

1410  CONTINUE 
WRITE(5, 1411) 

1411  FORMAT ( ' HOW  MANY  CLUSTERS?'/) 

READ  (5, 1412)  NCLUS 

1412  FORMAT (5 1 ) 

WRITE ( 5 # 927 ) 

927  FORMAT ( ' DO  YOU  WANT  TO  USE  CLUSTER  DEFAULT?'/) 
READ ( 5 » 928  ) DEF 

928  FORMAT ( A 1 ) 

DO  1420  JCLUS=1,NCLUS 
IF(DEF.EO.'Y')  GO  TO  929 
WRITEC5, 1421 ) JCLUS 

1421  FORMAT ( * HOW  MANY  DAYS  IN  CLUSTER ' 14 ,'?*/ ) 

READ (5/1412)  NDJ 

WRITE(5, 1422) 

1422  FORMAT ( ' WHICH  DAYS  ARE  THEY?  51  '/) 

READ (5^1412)  C NDJA ( 1 1 ) , I Is  1 , NDJ  ) 

GO  TO  930 

929  NDJ=II21JCLUS)-II1 (JCLUS) 

ILL  = 0 

DO  922  IGRsIIl (JCLUS) » II2(JCLUS) 

ILL=ILL+1 
NDJACILL)=IGR 
922  CONTINUE 

930  CONTINUE 
VSUMsO. 

DO  1425  IYal,96 
YPLT ( I Y ) *0 . 

DO  1428  I Y2S 1 » NDJ 
N JsNDJA ( I Y2 ) 

YPLT(IY)=YPLT(IY)fAPRAYCNJ/IY) 

VSUM=VSIIM  + ARRAY(NJ,IY) 
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1428  CONTINUE 

YPl,T(IY)«YPLT(lY)/FLOAT(NDJ) 

1425  CONTINUE 

CALL  XYPLOT(l.,9b.,l.,YPLT) 

IF( .NOT. NORM)  GO  TO  1826 
VSUMaVSUM/FLOATtNDJ) 

WRITE ( 5/ 1 825 ) VSUM 

1825  FORMAT(///5X'FOR  THIS  CLUSTER,  AVERAGE  DAILY  VOLUME  IS', 

1 F12.2///) 

1826  CONTINUE 
1420  CONTINUE 

RETURN 

END 
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SUBROUTINE  XYPLOT(XMIN,XMAX,XDEL,Y) 

DIMENSION  Y(1),ALPHA(61), FORM ( 5 ) » TITLE (TO ) 
DATA  (FORM(J),J=l,5)/'//(','  ','X,','  ','A1)', 
WRITECS, 101 ) 

101  F0RMAT(/1X, 'HOW  MANY  CHARACTERS  IN  TITLE?'/) 
READ  (5,100)  NCH 
100  FORMAT ( 1 ) 

NBL=(72-NCH)/2 
ENCODE(5»203» FORM ( J ) ) NBL 
ENCODF.(5,203,FORM(4)  ) NCH 
WRITE ( 5 , 205 ) 

205  FORMATUX,  'TYPE  IN  TITLE  '/) 

READ (5*204)  (TITLE ( I ) , 1=1 , NCH ) 

203  F0RMAT(I5) 


204  FORMAT (70A1 ) 

WRITE(5,F0RM)  (TITLE(K),K=1,NCH) 

NSTARS=6 1 

MID=31 

YMIN=Y(1) 

YMAX=Y(1 ) 

X=XMIkj+XDEL 
J = 2 

400  YMIN  = AMIf41(YMIN,Y(J)) 

YMAX  = AMAX1 (YMAX, Y(J)  ) 

X=XDEL*X 
J=J  + 1 

IF(X.LE.XMAX)  GO  TO  400 
YMID=(YMIN*YMAX)/2.0 
WRITE(5,52)  YMIN, YMID, YMAX 
5 2 FOBMAT(//10X,C12.5, 1 3X , G 1 2 .5 , 1 2X , G1  2 .5/ ) 
YINC=(YMAX-YMIN)/bO. 

X=XMIN 

J=1 

300  00  201  1=2,60 

201  ALPHA(I)='  ' 

ALPHA ( 1 ) = ' . ' 

ALPHA (MID)  = ' , ' 

ALPHA (61)=',* 

XNSTAR«(Y(J)-YMIN)/YINC 

NSTAR=IFIX(XNSTAR)+1 

IF( (XNSTAP-NSTAR) .GE.0.50)  NSTARsNSTAR+1 
DO  202  1=1 , NSTAR 

202  ALPHA ( I ) = '* ' 

WRITE(5,50)  X, ALPHA 

50  FORMAT(G9.3, 1 X , 6 1 A 1 ) 

X=XtXDEL 
J=J  + 1 
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IF(X.Lt.xMAX)  GO  TO  300 

RETURN 

END 


4 
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# FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEJCORAL.F4  14255,516]  18-May-7« 

• ••44  ••**••  *****  ••«••••••  «• 

C CORAL. F4 

C 

DIMENSION  ARRAY(9000), ARRAY2 (3000 ) 

104  FORMAT(I) 

CALL  IFILE(22,'FEB75') 

CALL  IFILE(21»'ALL75') 

CALL  IFILE(20, 'CORAL') 

NA>5 

DO  55  JA«1,NA 
READ(21)  AIR.NDAYS 
READ ( 22 ) AIR, NDAY2 
PEAD(20, 100)  I AIR 

100  F0RMAT(A3) 

WRITEO,  101  ) IAIR 

101  FORMAT(1H1///20X,A3//) 

CALL  CORSUB (JA, ARRAY, ARRAY2,NDAYS,NDAY2, 96) 

55  CONTINUE 
END 


«»  B-29  #* 
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SUBROUTINE  CORSUB { J ft , ARRA Y, RRRAY2 , NROWS, NROWS2 , NCOLS) 

DIMENSION  nDJ(5),NDJ2(5) 

COMMON  NCOP,DCOR,NLIST,DLIST 
INTEGER  DLIST(5,4,2),DC0R(5) 

COMMON  /SAVE/NCLUS,NCLUS2,NDJ,NDJ2 
DIMENSION  NCOR(5) ,NLIST(5,9,2) 

DIMENSION  X(96),Y(96) 

DIMENSION  ARRAY(NROWS, NCOLS) , 

1 ARRAY2(NRO*S2,NCOLS),NAME(124),THRES(124),IA(96), 

A YPLT2(96,5),NDJA2(30*5), 

2 IPLT(10)> YPLT(9b,5) ,NDJA(90,5) 

DIMENSION  IDAY(90) 

DO  5 Js  1 , NROhS 

READ (21)  1DAY(J), (ARRAY (J*K),K=1 , NCOLS) 

IF(J.LE.NROWS2)  READ ( 22 ) ID7 26 ,( ARRAY2 (J , K ), Ks i , NCOLS) 

NORMALIZE 

SUM=0. 

DO  15  JS=1, NCOLS 

15  SUM=SUM+ARRAY(J» JS) 

DO  16  JS=  1 , NCOLS 

16  ARRAY (J*JS)=ARRAY(J»JS) /SUM 
IF ( J.GT.NPOWS2)  GO  TO  5 
SUM=0. 

DO  215  JS=  1 # NCOLS 

215  SUMsSUM+ARRAY2( J, JS) 

DO  216  JSslf NCOLS 

216  ARRAY2(J,  JS)=AHRAY2(J,  JS)/SIIM 
5 CONTINUE 

NSTsNCLllS 

READ ( 20, 1 4 1 3 ) NCLUS 
1413  FORMAT ( A 4 ) 

IF(NCLUS.EO.'SAMi;')  GO  to  1 42 J 
REREAD  1 4 1 2 * NCLUS 
1412  FORMAT (201) 

DO  1422  JCLUS=1# NCLUS 
READ(20, 141 2)  NDJ(JCLUS) 

NDsNDJ(JCLUS) 

READ (20, 1412)  ( ND JA ( 1 1 , JCLUS ) , 1 1 = 1 , ND ) 

1422  CONTINUE 
GO  TO  1424 

1423  NCU)S=NST 

1424  DO  1420  JCLUS=1 , NCLUS 
DO  1425  1 Y= 1 , 96 
YPLT(IY,JCLUS)=0. 

NDsNDJ(JCLUS) 
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DO  1428  IY2*1»ND 
NJ=NDJA(IY2»JCLUS) 

YPLT(IY,JCLUS)=YPLT(IY, JCLUS) + ARRAY ( NJ, I Y ) 

1428  CONTINUE 

YPLT(IY, JCLUS)=YPLT(IY, JCLUS ) /FLOAT (ND ) 

1425  CONTINUE 
1420  CONTINUE 

NST*NCLUS2 

READ (20 >1413)  NCLUS2 
IF(NCLUS2.EQ.'SAME')  GO  TO  1523 
REREAD  1412*  NCLUS2 
DO  1522  JCLUS=l»NCLUS2 
READ(20, 1412)  NDJ2CJCLUS) 

ND=NDJ2(JCLUS) 

READ (20, 1412)  (NDJA2CII, JCLUS ), 11=1 ,ND) 

1522  CONTINUE 
GO  TO  1524 

1523  NCLUS2=NST 

1524  DO  1520  JCLUS=1 , NCLUS2 
DO  1525  IY=1,96 
YPLT?(IY, JCLUS)=0. 

ND=NDJ2 (JCLUS) 

DO  1528  IY2=1#ND 
NJ=NDJA2(IY2, JCLUS) 

YPLT2(IY, JCLUS)=YPLT2(IY, JCLUS)+ARRAY2(NJ,IY) 

1528  CONTINUE 

YPLT2CIY, JCLUS )=YPLT2 (I Y, JCLUS) /FLOAT (NDJ) 

1525  CONTINUE 
1520  CONTINUE 

C 

C CLUSTER  CORRELATIONS 

C 

NUMCORsNCOR(JA) 

WRITE(3* 102) 

DO  tOO  JCORx 1 , NUMCOR 
I1=NLIST(JA,JC0R, 1 ) 

I4=lt-NCLUS 

13=NLIST(JA,JCOR,2) 

12=I3-NCLUS 

102  F0RMAT(/10X, 'CLUSTER  1 1 OX , 'CLUSTER  2',20X,'R'/) 
DO  200  1=1,96 

IF(Il.LE.NCLUS)  GO  TO  4936 
X(I)=YPLT2(I,I4) 

GO  TO  4937 

4936  X d ) =YPLT ( I » 1 1 ) 

4937  CONTINUE 

Yd ) *YPLT2  (1,12) 


4 
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200  CONTINUE 

call  CC0EFF(96,X,Y,R) 

WRITE ( 3 , 201  ) I1,I3,R 

201  FORMAT(12X,I3,16X,I3,18X,Gl3.4) 

100  CONTINUE 

DAILY  CORRELATIONS 
WRITE (3*204) 

204  FORMAT ( ///13X. 'DAY', 14X, 'CLUSTER ',21X,  'R'/) 
NUMCORsDCOR(JA) 

DO  300  JCORsl , NUMCOR 
IlsDLISTCJA, JCOR, 1 ) 

I3*DLIST(JA,JCOR,2) 

I2»I3-NCLUS 
DO  400  1=1,96 
X(I)=ARRAY(11,I) 

Y ( I ) =YPLT2 (1,12) 

400  CONTINUE 

CALL  CCOEFF(96,X,Y,R) 

WR ITE ( 3 * 20 1 ) 1 1 , 1 3 , R 
300  CONTINUE 
RETURN 
END 


** 
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SUBROUTINE  CCOEFF(N,X,Y,R) 

DIMENSION  X<N)*Y(N),TEhP(200) 
XNsFLOAT(N) 

CALL  SUM(X,N,A) 

CALL  SUM(Y#N,B) 

DO  20  Jsl'N 

20  TEMP(J)«X(J)*Y(J) 

CALL  SUM(TEMP,N,C) 

DO  21  J=1 #N 

21  TEMP(J)»X(J)##2 
CALL  SUM(TEMp,N,D) 

DO  22  J=1,N 

22  TEMP(J)=Y(J)**2 
CALL  SUM(TEMP,N,E) 

R1=C-A*B/XN 

R2=SORT((D-(A«*2)/XN)*(E-(B##2)/XN)) 

R=P1/R2 

RETURN 

END 


r 
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block  data 

common  ncor,dcor,nlist,dlist 

INTEGER  NLIST(5,9,25,DLIST(5,4,25,NCOR(55,DCOR(55 
DATA  NCOR/6,6,9,9,9/ 

DATA  DCOR/3 , 3 » 3 , 4 , 4/ 

DATA  (NLIST(l,J,17,J3l,65/l,2,3,4,5,6/,(NLIST(l,J,25,J=l,65/ 

1 4 , 5 , 6 , 5 , 6 , 4/ , 

A (NLIST(2,J,13,Jsl,63/l ,2, 3, 4, 5, 6/, ( NLIST ( 2 , J, 2 5 , Js 1 , 6 5 / 

2 4, 5,6, 5, 6, 4/ 

DATA  (NLI ST (3»J»13»Jsl,95/t»3»l»2»2*2, 4,5,6/ 

DATA  (NLlST(3,J,25, Js 1 , 9 5 /6 , 5 , 4 , 5 , 6 , 4, 5 , 6 , 4/ 

DATA  ( NLIST ( 4, J* 2 5, J= 1,9 5/4, 5. 6, 4, 5, 6, 5, 6, 4/ 

DATA  (NLISTt 4, J,15,J=1, 95/1,1,2,3,3,3,4,5,6/ 

DATA  (NLIST (5, J, 25, J=l, 95/5, 6, 5, 6, 5, 7, 6, 7, 5/ 

DATA  ( NLIST (5, J, 15, J=l, 95/1, 1,2, 2, 3, 4, 5, 5, 7/ 

DATA  (DLIST(l»J»15»J=l»35/88»26»49/,(DLIST(l*J*25»J=l, 35/6, 5,4/ 
DATA  (DLIST(2,J,15,J=l,3)/88,26,49/,(DLIST(2,J,25,J=l,35/6,5,4/ 
DATA  (DLISTC3, J, 1 5 , J=1 ,35/26,6,78/, (DLIST(3, J, 25 , J=1 , 35/5, 4, 4/ 
DATA  (DLIST ( 4 , J , 1 5 , J=1 , 4 5 /6 , 46 , 45 , 45/ 

DATA  (DLIST ( 4, J, 2 5, J=l, 4 5/4, 6, 4, 5/ 

DATA  (DLIST ( 5, J, 15, J=l, 4 5/88, 49, 6, 37/ 

DATA  (DLIST(5,J»25,Js1,45/7,5,5,6/ 

END 
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ORD 

3 

64 

17  10  30  23  16  9 29  22  15  28  21  14  8 7 55  27  90  83  76  69 

62  87  80  73  66  86  79  72  65  3 48  20  85  78  71  64  84  77  70  63 

59  58  57  56  52  2 41  13  45  38  51  44  37  50  43  36  49  42  35  31 

24  1 34  6 

13 

89  82  75  68  61  54  47  40  33  26  19  12  5 
13 

88  81  74  67  60  53  46  39  32  25  18  11  4 

3 

20 

28  27  ll  17  26  25  21  14  7 20  4 10  13  6 19  12  5 18  24  3 

4 

23  16  9 2 

4 

22  16  9 1 

60S 

SA«E 

SAME 

CLfc 

3 

72 

90  83  76  69  62  87  85  80  78  73  71  66  64  84  77  70  63  86  79  72 

65  88  81  74  67  60  59  57  58  56  52  50  45  43  38  36  51  44  37  49 

42  3b  31  24  17  10  30  23  16  9 29  28  22  21  15  14  8 7 55  48 

41  34  27  20  13  53  46  39  32  25  18  11 

5 

6 3 2 1 5 
1 3 

89  82  75  68  61  54  47  40  33  26  19  12  5 
SAME 

SEA 

3 

50 

90  83  76  69  62  87  80  86  79  73  66  72  65  85  78  71  64  84  77  70 

63  89  82  75  68  61  59  58  57  56  55  52  45  38  51  44  37  50  43  36 

49  42  35  48  41  34  54  47  40  33 

9 

88  81  74  67  60  53  39  32  46 
31 

31  24  17  10  30  23  16  9 29  22  15  8 28  21  14  7 27  20  13  6 

3 2 1 26  19  12  5 25  18  11  4 

SAME 
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22 

89  82  75  68  61  90  83  76  69  62  87  80  73  66  86  79  72  65  85  78 
71  64 
43 

59  52  45  38  31  24  17  10  3 58  51  4 37  30  23  16  9 2 57  50 
43  36  29  22  15  8 1 55  48  41  34  27  20  13  6 54  47  40  33  26 
19  12  5 
12 

84  77  70  63  56  49  42  35  28  21  14  7 
13 

88  81  74  67  60  53  46  39  32  25  18  11  4 
SAME 
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• FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEJ AVGPRF.F4  (4255, 516J  16-May-7< 
•**»•«•••••* »•#«*•#•••**•**««*•« *###########*#*****############*###< 

RUN  THIS  PROGRAM  FOR  EACH  OF  THE  MINUTE-BY-MINUTE  PROFILE 
TAPES  GENERATED  BY  OAGpRF 

DIMENSION  ND(3),WM(1440,0/1),ADR(24), 

1 CONCEN (24),PFS(120),WMS(1440,0/1,3), 

2 TOTAL ( 1 20) ,ADRS(24, 3) »CONS(24*  3) 

DIMENSION  PMIXP(24,8) , PMIXS ( 24 , 8 , 3 ) 

DIMENSION  NDC(120),MONTHS(8),NNM(8) 

DATA  MONTHS/29,31,31,30,28,31,31,30/ 

DATA  ICL, I AND/ "4 16 30, "777777700000/ 

DATA  NNM/"30142," 30144, "30146, "30150, "30152. '"30154, 

1 "30156, "30160/ 

INTEGER  A 1 
WRITE(5, 104) 

READ (5,101)  IDEV 
WRITE ( 5 ,5001 ) 

READ  1 5 , 1 0 1 ) N A 1 » N A 2 

SPECIFY  MONTH  WHICH  IS  ON  TAPE 

WRITEC5, 114) 

114  FORMATt'  WHICH  TAPE?  - '/ 

1 * ENTER  AN  INTEGER  1 . LE . I . LE . 8 ' / 

2 * 1 =FF.B7  2 ETC'/) 

101  FORMAT (1013 

READ (5,101)  ITAPE 
WRITE (5, 21b) 

216  FORMAT ( ' IN  THIS  SERIES  OF  PUNS,'/ 

1 ' WHAT  IS  THE  LOWEST  TAPE  NUMBER  YOU  ARE  USING?'/) 

PE AD ( 5 , 1 0 1 ) NT  1 
NADD=0 

IF(ITAPE.EO.NTl)  GO  TO  214 
DO  215  JADD=NT1,ITAPE-1 
N ADD*N ADD ♦ MONTHS ( J ADD ) 

215  CONTINUE 
C 

C (NADD4-1)  = FIRST  DA  i ON  TAPE 

C 

214  CONTINUE 

DO  5000  I A=NA 1 , NA2 
5009  CONTINUE 
C 

C READ  AIRPORT  CODE  AND  NUMBER  OF  DAYS  FROM  TAPE 

C 
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READ (1DEV»ERR=5500»END*5007)  Al» NDAYS 
WRITE ( 5 # 8 8 ) Air NDAYS 
88  FORMAT ( * AIRPORT  ',A3,'  NDAYS  '14) 

•GET  NAME  FOR  OUTPUT  FILE 

NAME*(A1.AND.IAND).0R.NNM(ITAPE) 

open  output  file 

CALL  0FILE(21,NAME) 

GO  TO  5008 

5007  GO  TO  5009 

5008  CONTINUE 

104  FORMAT C ' INPUT  TAPE  DEVICE  NUMBER?'/) 

115  F0RMAT(A5  ) 

5001  FORMAT!'  LOCATIONS  IN  LIST  OF  FIRST  AND  LAST  AIRPORTS?'/) 


GET  NAME  OF  FILE  WITH  CLUSTER  ASSIGNMENTS 

NAMEC=(A1 .AND. I AND) .OR.ICL 

OPEN  CLUSTER  FILE 

CALL  IFILE(22*NAMEC) 

READ  NUMBER  OF  CLUSTERS , AND  ARRAY 
OF  CLUSTER  ASSIGNMENTS 

READ  C 22 ) NC  , NDC 

INITIALIZE  ARRAYS 

DO  703  IC*1,NC 
703  ND(IC)=0 

DO  1010  11=1,3 
DO  1011  JJ= 1 , 1440 
DO  1011  KK  = 0 , 1 
WMS(JJ,KK,II)=0. 

1011  CONTINUE 

DO  1012  JJ=1 , 24 
ADPS ( J J, I I ) *0 , 

CONS ( JJ , I I ) =0 • 

DO  1014  KKa  1 , 8 
1014  PMIXS(JJ^,KK,II)=0. 

1012  continue 

1010  CONTINUE 
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IDAY=NADD 

DO  500  JN=1#NDAYS 


READ  ONE  DAY'S  RECORD  FROM  TAPE 

READ  ( IDEV  ) ID,1>T0T,WM,ADR,C0NCEN,PMIXP,PF 
IDAY=IDAY*1 

ADD  DAY  TO  COUNTER  FOR  ITS  CLUSTER 

JsNDC ( IDA Y ) 

ND  ( J ) *ND  ( J ) ♦ 1 

ADD  MINUTE-BY-MINUTE  PROFILE  TO  SUM 

DO  501  NAD=0,1 
DO  501  JJ= 1 * 1 440 

501  WMS(JJ,NAD, J)=WMS(JJ,NAD, J ) *WM ( JJ , NAD ) 

ADD  HOURLY  A/D  RATIO  AND  CONCENTRATION  TO  SUMS 
DO  502  JJ=1*24 

ADRSCJJ, J)=ADRS(JJ, J)+ADR(JJ) 

CONS(JJ, J)=C0NS( JJ, J)fCONCFN(JJ) 

ADO  POLLUTION  M[X  TO  SUM 

DO  503  JJ J= 1 * 8 

503  PM1XS1JJ, JJJ, J)=PMIXS(JJ,JJJ,J)*PMIXP(JJ,JJJ) 

502  CONTINUE 

STORE  PEAKING  FACTOR  IN  ARRAY 
PFSCIDAY)=PF 

STORE  DAILY  TOTAL  IN  ARRA i 

TOTALCIDAY)sDTOT 
500  CONTINUE 

WRITE  TO  OUTPUT  FILE  AIRPORT  NAME* 

NUMBER  OF  DAYS*  AND  NUMBER  OF  CLUSTERS 

WRITEC21)  A1,NDAYS,NC 

WRITE  SUMS  TO  OUTPUT  FILE 
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call  wrt(Nc,nd,wms,adRs#cons,pmixs,pes, total) 
CALL  RELEAS(21) 

CALL  RELEASC22) 

5000  CONTINUE 
5500  CONTINUE 
END 
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subroutine  WRT(NC,ND,WMS,A0RS,C0N5,PMIXS,PFS»T0TAL) 
DIMENSION  nD(NC),WMS(  1440,0/1  , NC  ) , ADRS ( 24 , NC ) ,CONS ( 24 , NC ) , 
1 PFS(120)»  TOTAL (120) 

DIMENSION  PMIXS(24,8,NC) 

WRITE (21)  ND, TOTAL, WMS, ADRS, CONS, PMIXS,PFS 

RETURN 

END 
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t CLUSTERING  programs 

###*##*####*########****#######*•#############*###*######*#**•##*#*##< 
• FOLLOWING  TEXT  PRINTED  from  FILE  DSKElAVGMRG,F4  14255 #5161  18-May«7( 
•####•###########**####*#•*##*••####*#*•###*••#**#*••***•*#*******#•** 


AVGMRG.F4  MERGES  EIGHT  DISK  FILES  WITH  SUMMED  PROFILES 
DIMENSION  pMIXSl(24,8,3)»PMIXS2(24,8,3) 

DIMENSION  N1 (3),N2( 3), WMS1( 1440,0/ 1,3) ,WMS2( 1440*0/1, 3), 

1  ADPS1(24,3),ADRS2(24»3),CONS1(24,3),CONS2<24,3), 

1 PF1(120),PF2<120), 

3 TOTAL  1 (120) , TOTAL 2 ( 120) 

DIMENSION  AN(31),NNM(0) 

INTEGER  AIR,AN,A1 » A2 

DATA  AN/'BOS','DCA', 'BAL', 'EWP', 'JFK', 'LGA', 'I AH', 'PHL', 

1 'PIT', 'I AD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL', 'CLT', 

2 'OPD',  'DTW', 'MSP', 'CLE', 'STL', 'MSY', 'DAL', 'DEN', 'SLC', 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

DATA  NNM/" 30 142, "301 44, "30 146, "30 150, "30 152, "30 154, 

1 "30156, "30160/ 

DATA  ICP, I AND/"41640, "777777700000/ 

DATA  NDAYS/120/ 

WRITE (5, 101) 

101  FORMAT  C ' STARTING  AND  ENDING  LOCATIONS  IN  AIRPORT  LIST?'/) 
READ ( 5 , 102)  NA1 ,NA2 

102  FORMAT (21) 

WRI TE ( 5 , 1 04  ) 

READ (5,102)  NF 
WRITE ( 5 , 103) 

103  FORMAT ( ' NUMBER  OF  TAG  FOR  FIRST  INPUT  FILE?'/) 

READ(S,102)  NF 1 

NFA*NF1-1 

104  FORMAT ( ' HOW  MAN?  INPUT  FILES?'/) 

DO  2000  IA=NA1,NA2 

AIP=AN(IA) .AND.IAND 
NAMEOSAIR.OR.ICP 

OPEN  OUTPUT  FILE 

CALL  0FILE(20,NAME0) 

NAMEI«AIR.0P.NNM(NF1  ) 

OPEN  FIRST  INPUT  FILE 

CALL  IFILE(21, NAMED 

READ  FIRST  INPUT  FILE 

READ ( 21  ) A1,NU1,NC1 
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Call  srEaD(NCi,ni,wmsi,adrsi ,consi , 
2 PMlXSl.PFl, total!) 


RELEASE  FIRST  INPUT  file 


CALL  RELEAS (21) 

LOOP  OVER  REMAINING  INPUT  FILES 

DO  4340  JF=2,NF 
JFIsJF+NFA 

NAMEI=AIR.OR.NNM(JFI) 

OPEN 

CALL  IFILEC21  .named 
read 

READ  (2D  A2.ND2.NC2 
IFCNC1 .NE.NC2)  GO  TO  1003 
IF(A1.N£.A2)  GO  TO  1000 
ND 1 sND 1 +ND2 

CALL  SREAD(NC2,N2,WMS2,ADRS2,C0NS2, 

2 PMIXS2.PF2.TOTAL2) 

RELFASE 

CALL  RELEAS  (2D 

SUM  FOP  CLUSTERS 

DO  SO  1st, NCI 
N1(D*N1(I)4N2(IJ 
DO  51  12=1,1440 
DO  51  13=0,1 

51  WMS1  (12, 13,I)«WMS1  (12, 13,D*WMS2(I2,I3,I> 

DO  52  12=1,24 

ADRSl  (12,  I)=ADRS1  (12,  D+ADRS2C12, 1) 

CUN  SI  ( 12, 1 ) =CONS 1 (I2,DtCONS2(I2,D 
DO  53  13=1, » 

PMIXS1  (I2,I3,I)=PMIXS1(I2,I3,D+PMIXS2(I2,I3,I) 
53  CONTINUE 

52  CONTINUE 
50  CONTINUE 

C INSERT  DAILY  TOTALS  AND  PEAKING  FACTORS 


*•  R-44  «# 


non  non  non  n no 


CLUSTERING  programs 

FROM  INPUT  FILE  INTO  COMPREHENSIVE  LIST 


» 


DO  60  JP*1 > NDAYS 

IF(T0TAL2(JP).GT.T0TALl(JP))  TOTAL 1 (JP)*T0TAL2(JP) 
IF (PK2 ( JP ),GT.PFl(JP))  PFl(JP)«PF2(JP) 

60  CONTINUE 

WRITEC5# 34) 

34  FORMAT ( * WRITE*) 

40  CONTINUE 

AVERAGE 


NTOTsN 1(1)+N1(2)+N1(3) 

IF(NT0T.NE. NDAYS)  WRITE(5,253) 

253  FORMAT ( 2X » ' NDAYS  a *15) 

DO  42S3  IC»1,3 
XD=FL0AT(N1 (IC)) 

DO  12  IMsl , 1 440 
DO  12  IAD«0,1 

WMS1 (IM,IAD#IC)»WMS1(IM,IAD,IC)/XD 

12  CONTINUE 

DO  13  IH=1,24 

ADRS1 (IH, IC ) sADRS 1 ( I H , IC)/XD 
COIIS 1 ( I H « IC)*CONSl(IH,IC)/XP 
DO  15  IPX*1 , ft 

15  PMIXS1 (IH* IPX» IC)»PMIXS1 ( IH# IPX* IC)/XD 

13  CONTINUE 
253  CONTINUE 

WRITE  OUTPUT  FILE 

WRITEI20)  A1,N01,NC1 

CALL  WRT(NC1#N1,WMS1 ,ADPS1 #C0NS1 , 

1 PM  I^j|l  ,PF1 , TOTAL  1 ) 

RELEASE  OUTPUT  FILE 

CALL  RELEAS ( 20 ) 

2000  CONTINUE 

GO  TO  1001 

1003  WRITEIS, 1004) 

1004  FORMAT ( ' VALUES  FOH  NUMBER  OF  CLUSTERS  DO  NOT  AGREE  V ) 
GO  TO  1001 

1000  NRITt(5,1002) 

1002  ,rORM AT { ' AIRPORT  CODES  DO  NC1T  MATCH'/) 

1001  CONTINUE 
END 
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SUBROUTINE  WRT C NC , ND , WMS , AORS, CONS, PMIXS, PFS, TOTAL ) 
DIMENSION  ND(NC),WMS( 1440, 0/1 , NC  ) , ADRS ( 24 , NC ) ,CONS( 24, NC ) , 
1 PFS(120),TOTAL(120) 

DIMENSION  PMIXS ( 24 , 8 , NC ) 

WRITE (20)  ND, TOTAL, WMS, ADRS,CUNS, PMIXS, PFS 

RETURN 

END 


r 
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SUBROUTINE  SREaD (NC, NO, WMS,ADpS, CONS# PMIXS,PFS, TOTAL) 
DIMENSION  ND(NC),WmS( 1440,0/1,NC),ADRS(24,NC),CONS(24,NC), 
1 PFSC120), TOTAL! 120) 

DIMENSION  PMIXS ( 24 , 8 , NC ) 

READ(2l ) NO, TOTAL, WMS,ADRS, CONS, PMIXS, PFS 

RETURN 

END 
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» FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKE;EXTWEA.F4  [4255,516]  18-M«y-7 

C EXTWEA.F4 

C 

C THIS  PROGRAM  EXTRACTS  WEATHER  DATA  (CEILING  AND 

C VISIBILITY)  FOR  TWO  YEARS  (72  AND  73)  FROM  A TDF-14  TAPE 

C 

DIMENSION  IA(7),AR(20) 

NWs() 

NRsO 

C 

C GET  INPUT  AND  OUTPUT  DEVICE  NUMBERS 

C 

WRITE ( 5 » 300 ) 

300  FORMAT(*  INPUT  TAPE  NUMBER?*/) 

READ (5,301)  IDEV 

301  FORMAT ( I ) 

WRITE(5,302) 

302  FORMAT ( * OUTPUT  TAPE  NUMBER?*/) 

READ (5,301)  IOUT 

C 

C READ  A RECORD 

C 

200  PEAD(IPEV,10,ERR=2000,ENDs1000)  IA 
10  F0PMAT(I5,4I2,1X,2I3) 

NRsNR+1 

IF ( (NR/50000#50000) .FO.NR)  WPITE(5,307)  NR 

307  FORMAT ( * NRb'IIO) 

C 

C IS  THIS  A RECORD  WE  WANT  (72  OR  73  DATA) 

C 

IF(IA(2).E0.72.0R.IA(2).E0.73)  GO  TO  100 
GO  TO  200 
C 

C WRITE  A RECORD  TO  OUTPUT  TAPE 

C 

100  WRITE ( IOUT, 10)  IA 
NWaNW+1 

IF((NW/20000*20000).E0.NW)  WPITE(5,308)  NW 

308  FOPMAT(*  NW«*I10) 

GO  TO  200 

1000  END  FILE  IOUT 
C 

C WRITE  TO  TERMINAL  NUMBER  OF  WEATHER  records  EXTRACTED 

c 

WRITE (5, 102)  NW 

102  FORMAT ( * WEATHER  RECORDS  EXTRACTED  **110/) 
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GO  TO  400 
2000  CONTINUE 

IF  READ  ERROR,  REREAD  IN  (20A1)  FORMAT 

REREAD  110, AR 
110  FORMAT(20A1) 

NRaNR+1 


210 


500 


WRITE  EPR0P  BEARING  RECORD 

WRITE(5,2l0)  AR, MR 
FORMAT(5X,20A1, * INPUT  RECORD 

IS  THE  FPROR-BEAPING  RECORD 

IE(AR(7).EO.'2'.OR.ARC7)  .ECi.'3') 

GO  TO  200 

NnsNW+1 


TO  TERMINAL 

'110/) 

ONE  WE  WANT? 
GO  TO  500 


WRITE  AN  ERROR-BEARING  FFCORD  TO  OUTPUT  TAPE 

WRITtdOUT,  110)  AR 
WP ITF ( 5 , 3 1 0 ) NW 

JIO  FORMAT ( 20X , ' OUTPUT  RECOPD'ItO) 

GO  TO  200 
400  CONTINUE 
f.nd 
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* FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKE1WEAC0M.F4  [4255,5161  lB-May-7' 

WEAC0M.F4 

THIS  PROGRAM  COMPACTS  WEATHER  DATA  EXTRACTED  BY 
WEAC0M.P4.  IN  CASE  OF  READ  ERRORS,  CEILING  AND 
VISIBILITY  ARE  SET  TO  0. 

AN  END-OF-FILE  IS  WRITTEN  AFTER  DATA 
FOR  EACH  STATION. 

DIMENSION  IA(4),ICLG(8),IVIS(8) 

THE  NEXT  TWO  STATEMENTS  ARE  SPECIAL  PLEADING 
FOR  TWO  MISSING  RECORDS 

LOGICAL  ILOG 
DATA  ILOG/. FALSE./ 

LIM38 
IFILEsl 
IWsO 
IRaO 
I Nat) 

c 

C GET  INPUT  AND  OUTPUT  DEVICE  NUMBERS 

C 

KRITE(5, 30) 

30  FORMAT ( ' INPUT  TAPE  NUMBER?'/) 

RE AD ( 5 , 3 1 ) IDEV 

31  FDRMAT(I) 

WRITE (5, 32) 

32  FORMAT ( * OUTPUT  TAPE  NUMBER?'/) 

READ (5,31)  IOUT 

C 

C READ  A RECORD 

C 

200  BEAD  (IDEV, 10 , ERRa 1 40 , END=1 00 ) IA, IHR, ICLG( 1) , IVIStl ) 

10  FORM AT (15, 412, IX, 213) 

GO  TO  144 
140  REPEAD  410, IA 
410  FORMAT(I5,3I?) 

1CLG(1)*0 
IVISI1 )»0 
144  CONTINUE 
IPsIK+l 

IF(IR.EO.l)  GO  TO  801 
C 

C IF  LATA  READ  IS  FOR  A DIFFERENT  STATION  THAN 
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THE  LAST  RECORD,  WRITE  AN  END-OF-FILE  On  THE 
OUTPUT  TAPE. 

IF(IA(1).E0.NSTA)  GO  TO  801 
END  FILE  IOUT 
WRITE(5, 47 ) NSTA , IFILE 
IFILF.flFILE-M 

47  FORMAT ( * STATION  #,I6,'  IS  ON  FILE  '14) 

801  CONTINUE 
NSTA=IA(1) 

800  CONTINUE 

REAL  SEVEN  MORE  RECORDS  - COMPLETES  INPUT 
OF  DATA  FOR  ONE  DAY  (8  OBSERVATIONS) 


THE  NEXT  SEVEN  STATEMENTS  ARE  SPECIAL  PLEADING 
FOR  TWO  MISSING  RECORDS 

IF(IA(l).Nt. 24233)  GO  TO  8P8 
IF(IAC2).NR.72)  GO  TO  888 
IFCIA(3) .NE.12)  GO  TO  888 
IF(IA(4)  .ME. 31)  GO  TO  888 
ILOGs.TRUE. 

888  CONTINUE 

IF(ILOG)  LIM=6 
DO  20  Js2,LIM 

READ (IDE  V, 1 1 ,EPP*240)  ICLG( J) , IVISCJ) 

11  F0RmAT(14X,2i3) 

GO  TO  244 
240  REREAD  410, IA 
ICLG( J)*0 
IVIS(J)*0 
244  CONTINUE 
20  CONTINUE 


THE  l.tXT  TWO  RECORDS  APE  SPECIAL  PLEADING 
FOP  TWO  MISSING  RECORDS 

IF ( I LOG ) L 1 M s 8 

IF ( I LOG ) 1 LOG* .FALSE , 

WRITE  OUT  ONE  RECORD  FOR  DAY 

WRITE  (IOIIT)  I A,  ICLG,  IV  IS 

iw*rw+i 

GO  TO  200 
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100  CONTINUE 

END  FILE  IOUT 

WRITE (5 # 47 ) NSTA'IFILE 

WRITE (5 / 48  ) IP/ I W 

4R  FORMAT ( / * RECORDS  READ'IIO/*  RECORDS  WRITTEN '110) 
END 
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* FOLLOWING  TEXT  PRINTED  from  FILE  DSKEIVFRIFR.F4  (4255*5161  li-May-7 


VFPIFR.F4 

THIS  PROGRAM  SEPARATES  DATS  (FOR  TWO 

TEARS)  INTO  VFR  AND  IFR  DATS.  INPUT  TApE  WRITTEN 

BT  wEACOM.F 4 

DIMENSION  I AIR ( 30 ) 

INTEGER  Alp 

DIMENSION  IA(4), JCL(»),IVS(8), LIST (731) 

DATA  I WE, I AND/" 5 36 12, "777777700000/ 

DATA  IAlP/'DAL', 'MIA', 'TPA', 'MSY', 'IAH',  'PHL', 'DCA', 'ATL', 'CL 
1 ' JAX  ' , 

I 'STL', 'LGA', '£*R', 'ROS', 'CLE', *MKE', 'MSP', 'HNL', 'DEN', 'LAS', 

1 'LAX', 'SFO#, 'SLC', 

1 'SEA', 'BAL', 'I AD', 'JFK', 'PI T ' , 'ORD  ' , 'DTW '/ 

DATA  NA/30/ 

DATA  NDAYS/7 31/ 

GET  INPUT  DEVICE  NUMBER 

WRITK(5, 30) 

30  FORMAT ( ' INPUT  DEVICE  NUMBER?'/) 

READ (5,11)  I DEV 
11  FORMAT!  I) 

READ  A RECORD 

IAPT*0 

1120  IDAY»0 

lAPTsIAPT+1 
DU  1 l 3 0 I«1,NDATS 
1130  LIST ( I ) *0 

TF(IAPT.GT.NA)  G<J  TO  2000 
1100  REAP(IDEV,ERR*1000,END*1000)  IA,ICL,IVS 
IF(IDAT.GT.O)  GO  Tu  112 
AIRsI AIR( I APT) 

NAME* (AIR.  AND.  I AND)  .OR,  I*E 
C 

WRITE(5, 1 40)  IA(1),AIR 
140  FORMAT ( ' STATION  NUMBER  «'I8, 10X, A3/) 

I0UTS2P 

CALL  OFIlE(lnUT,NAME) 

112  IDAYsIDAV+1 
1C»0 
IVsO 


• weather  programs 


c CHECK  CEILING  AND  VISIBILITY 

C 

DO  300  JC»3.8 
IF(ICL(JC).GE.15)  IC«IC+1 
IF(IVS(JC).GE.30)  IV«IV+1 
300  CONTINUE 
C 

C DECIDE  IF  DAY  Is  VFR  OR  IFR 

C 

IFCMIN0(IC,IV).GF.5J  LIST(IDAY)*1 

c 

C IF (LIST(DAY)sl # DAY  IS  VFR. 

C OTHERWISE#  LIST(DAY)«0  AND  DAY  IS  IFR. 

C 

GO  TO  1100 
1000  CONTINUE 
C 

C WRITE  NUMBER  OF  DAYS  FOUND  TO  TERMINAL  FOR  A CHECK  - 

C SHOULD  BE  EQUAL  TO  NDAYS 

C 

IFCIOAY.NF.  NDAYS)  WRITE ( 5 » 1 8 0 ) IDAY 

180  FORMAT!'  NUMBER  OF  DAYS  FOUND  FOR  THIS  AIRPORT!'/ 

1 20X  # 16 ) 

C 

C WRITE  LIST  OF  VFR  AND  IFR  DAYS  ON  DISK  FILE 

C 

WRITF(IOUT)  AIR#  LIST 
END  FILE  IOUT 
CALL  RELEAS ( IOUT ) 

GO  TO  1120 
2000  CONTINUE 
END 
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# FOLLOWING  TEXT  PRINTED  FROM  FILE  DSKEITOWRD.F4  [4255, 5 1 6 J 18-M«y-7 


C TOWRD.F4 

C 

DIMENSION  NPT(3I),AN(31),NARPAY(3294),NUM(183) 

DATA  AN,NPT/'BOS', 'DCA', 'BAL', 'EWR', 'JFK', 

1 'LGA', 'PHL', 'PIT', 'IAD','FLL', 'JAX', 'MIA*, 

2 'TPA', 'ATL', 'CLT', 'ORD', 'OTW ' , 'MSP ' , 'CLE ' , 'MKE', 'STL','MSY', 

3 'DAL', 'IAH', 'DEN', 'SLC', 'LAX','SFO', 'LAS', 'SEA','HNL',7,18,20, 

4 32, 33, 46, 48, 57, 70, 75, 78, 90,95, 110, 136, 151, 164, 171,184,201,213, 

5 236,242,256,269,287,305,316,331,343/ 

INTEGER  AN 
WRITE (5, 201) 

201  FORMAT ( ' OUTPUT  FILE  NAME?'/) 

READ (5, 103)  ANAME 
103  FOPMAT(A5) 

IOUT=20 

CALL  OFILE ( IOUT, AMAFE ) 

102  FORMAT ( 301  ) 

WRITE(5,203) 

203  FORMAT ( ' INPUT  TAPE  NUMBER?'/) 

PE AD ( 5 , 1102)  ITAPF 
WRITE!5, 101 ) 

101  FORMAT ( ' RANGE  OF  AIRpORTS(BY  NUMBER)  ON  THIS  TAPE?' 

1 ' - EG,  1,100'/) 

READ (5 , 1102)  NAT) , NAT2 
1)02  FORMAT ( 21 ) 

NR  = 0 

400  NR=NR+1 

IF(NPT(NP) .LT.NAT1  ) GO  TO  400 
DU  1000  IRsNATl  ,f'AT2 
IF  (IR,F.O,NpT(NR)  ) GO  Ti)  500 
READ(ITAPE,501 ) MUM 

501  FORMAT! 17 ) 

WRITE (5, 10)  IR 

10  FUR-IAT(IR) 

GO  TO  1000 

500  REAP! ITAPE,502)  NARPAY 

502  FORMAT!  1817 ) 

WRITE! IOUT)  AN!NR), NARPAY 
WRITEI5, 1 1 ) IR 

11  FORMAT! 10X,I8) 

MRaNR+l 

1000  continue 

600  CONTINUE 

END  FILE  IOUT 
FND 
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C TOWRD3.F4 

C 

DIMENSION  NPT ( 3 1 ) , AN ( 3 1 ) ,NARRAY (3294), NUM( 183) 

DATA  AN,NPT/'BOS', 'DCA', 'BAL', 'EWR', 'JFK', 

1 'LGA','PHL',  'PIT', 'IAD',  'FLL', 'JAX', 'MIA', 

2 'TPA', 'ATL', 'CLT', 'ORD', 'DTW', 'MSP', 'CLE', 'MKE', 'STL','MSY', 

3 'DAL', 'IAH', 'DEN', 'SLC',  'LAX', 'SFO', 'LAS','SEA', 'HNL',7,18,20, 

4 32,33,46,48,58,71,76,79,91,96,113,139,154,167,174,187,204,216,. 

5 239,245,259,272,291,309,320, 337,349/ 

DIMENSION  AAA ( 126) 

INTEGER  AN 
WRITE (5, 201) 

201  FORMAT ( ' OUTPUT  FILE  NAME?'/) 

READ (5,103)  ANAME 
103  F0RMAT(A5) 

IOUTS20 

CALL  0FILE(I0UT, ANAME) 

102  FORMAT (301) 

WRITE(5»  203) 

203  FORMAT ( ' INPUT  TAPE  NUMBER?'/) 

READ (5,1102)  ITAPF 
WRITE(5, 101  ) 

101  FORMAT ( ' RANGE  OF  AIRpORTS(BY  NUMBER)  ON  THIS  TAPE?' 

1 ' - EG,  1,100'/) 

READ (5,1102)  NAT1 , W AT2 
1102  FORMAT ( 21 ) 

NRsO 

400  NRsfjR*  1 

IF(HPT(NP) .LT.NAT1 ) GO  TO  400 
DO  1000  IRaNATl,NAT2 
IF(IP.EO.NPT(NK))  GO  TO  500 
READ( (TAPE, 501 ) NUM 

501  FORMAT ( 17 ) 

WRI TE (5 , 1 0 ) IR 

10  FORMAT ( 18 ) 

GO  TO  1000 

500  PEAPlITAPF.,502,EKRa573)  NARRAY 

502  FORMAT ( 1817) 

WRITF(IOUT)  AN(NR),UARRAY 
GO  TO  576 

573  REREAD  57 4 , AAA 

574  FURMAT ( 1 26 A 1 ) 

WRITE ( 5 , 5 75  ) AAA 

575  F0P’1AT(5X,  1 26A1  ) 

576  CONTINUE 
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WRlTE(5* 11)  IR 
11  FURMAT(10X,I8) 
NRaNR+l 
1000  CONTINUE 

600  continue 

END  FILE  IOUT 
END 
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TOWMRG.F4 

DIMENSION  NARRAY(3294),IARRAYC3294) 

DATA  IAND, 1TW/ "777777700000, "52256/ 

INTEGER  A 1 , A2 
WRITE(5» 100) 

100  FOPMAT('  NAME  TWO  TOWtp  INpiiT  FILES'/) 

READ (5,101)  HAMEl ,NAME2 

101  FORMAT (A5, 1X,A5) 

WRITE(5, 102) 

102  FORMAT ( ' HOW  MANY  AIRPORTS  ON  THESE  FILES?'/) 
READC5, 103)  NA 

103  FORMAT ( I ) 

CALL  IFILE(20, NAMED 
CALL  IFILE(21,NAME2) 

DO  55  JA*1,NA 
READ ( 20 ) A1 , IARRAY 
READ (21)  A2  » NARR AY 
WRITE (5 , 104)  A 1 » A2 

104  FORMAT(/10X,A3,5X,A3/) 

NAME3=(A1 .AMD. I AND) .OR.ITW 
CALL  OFILK ( 22 , NAME 3 ) 

WRITt’t  22)  Al, IARRAY, NARRAY 
ENDFILE  22 

CALL  RELEAs (22) 

55  CONTINUE 
END 
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THIS  PROGRAM  SEPARATES  TOWER  TRAFFIC  FOR 
VFP  AND  IFR  GROUPS  OF  DAYS;  CALCULATES 
NON.SCHEOULF.D  MIXES  FOR  EACH  DAY | COMPUTES 
VFR  AND  IFR  DISTRIBUTIONS)  AND  CALCULATES 
MEANS  FOR  AC,  AT,  GA,  AND  MIL  TRAFFIC. 

DIMENSION  NNAC(U/1),MNAT(0/1),MNGA(0/1),MNMIL(0/1 ) , 

1 MNUM ( 0/ 1 ) 

DIMENSION  LIST(731),VS(731),VN(731), 

1 NARRAY(6588),XM1X(0/I,8,4),MIX(8,731 > 

DATA  ITW,lWE,IT0,IAND/"52256, "536 12, "52236, "777777700000/ 
INTEGER  AN ( 31 ) 

DATA  AN/'BOS', 'DCA', 'BAL', 'EWR', 'JFK','LGA','lAH', 'PHL', 

1 'PIT', 'IAD', 'FLL', 'JAX', 'MIA', 'MKE', 'TPA', 'ATL', 'CLT', 

2 'ORD', 'UTW', 'MSP', 'CLE', 'STL  * , 'MSY' , 'DAL ' , 'DEN * , 'SLC ' , 

3 'LAX', 'SFO', 'LAS', 'SEA', 'HNL'/ 

DATA  I IV/"44654/ 

DATA  (XMIX(0,K,1),K*1,P)/0.,0.,0.,.05,0.,.15,.80,0.0/ 

DATA  (XMIX(0,K, 2) ,K*1 ,8)/0. ,0.,0a, .05,0., .15, .80,0.0/ 

DATA  <XMIX( 1,K, 1) ,K*1 , 8 )/0 . , 0. , 0 . , .01,0., .03, .96,0.0/ 

DATA  (XMIX( 1,K,2) ,K*1 ,8)/0.,0. ,0., .01,0.0, .03, .96,0.0/ 
DATA  (XMIX(0,K,3),K«1,B)/0.,0.,0.,.20,0.0, .10, .30, .40/ 
DATA  (XMIX(O,K,4),K*l,8)/0.,O.,0., .20,0.0, .10, .30, ,40/ 
DATA  (XMIX( l,K,3) ,K*| ,8)/0.,n.,0., .20,0.0, .10, .30, .40/ 
DATA  (XMIX(1,K,4),K«1,8)/0.,0.,0.,.20,0.0,.10,  .30, .40/ 
COMM  iJN/DEVS/I  OUT 
REAL  MMIX(8)  - 

REAL  MIX,MNAC,KNAT,MNGA,MNMIL 
DATA  NDAYS.NAPT/731 , 31/ 

CALL  ERRSET(50) 

HOW  MANY  AIRPORTS  THIS  RUN? 

WRITE (5, Jo) 

READ (5,21)  NA 

14*0 

500  lAsIA+1 

IF(NA.EQ.NAPT)  GO  TO  131 

GET  NAME  OF  AIRPORT 
WRITE( 5,330) 

330  FORMAT!///'  WHAT  AIRPORT?'/) 
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READ (5 • 335 ) IAIR 
335  FORMAT (A3) 

GO  TO  231 
131  IAIRsAM(IA) 

231  CONTINUE 

get  name  of  file  with  list  of  vfr  and 

IFR  DAYS  (WEATHER)  FOR  THIS  AIRPORT 
AND  FILE  WITH  TOWER  DATA; 

ALSO  NAME  OUTPUT  FILE 


inamk*iair.and.iand 

NAMETaINAME.OR.ITW 

NAMEWaINAME.OR.lWE 

NAME2aINAMF.OR.ITO 

NAlRIaIMAME.OR.IIV 


OPEN  TOWER  DATA  FILE 

CALL  IFILE(22#NAMET) 

IDEVa22 

21  FORMAT (101) 

IOUT=21 

OPEN  OUTPUT  FILES 

CALL  OFILF ( IOUr» NAME2 ) 

30  FORMAT ( ' HOW  MANY  AIRPORTS?'/) 
IPSKr20 
IOUT2=23 

CALL  0FILE(I0UT2, NAMED 
OPEN  WEATHER  FILE 


CALL  IFILE(  iDSKf  NAriFW) 

READdDSK)  1AIR1  .LIST 
READ ( IDEV ) IAIR2iNARRAY 

CHECK  THAT  FILES  ARE  INDEED  FOR  THE  AIRPORT  WANTED 


IF(IAIR1 .NE.IAIR)  GO  TO  600 
IF(IAIR2.NE.IAIR)  GO  T"  600 
WRITE(IOUl)  IAIR 
*PITF(5#723)  IAIR 
723  FORVAT(5X, 'AIRPORTS  ' , A 3 ) 

DO  743  IllaO.l 
MN AC ( 1 1 1 ) *0  , 
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MNAT ( I I I ) *0 i 
MNGA(III)*0. 

MNMIIi ( III  ) »0  , 

MNUM (III) *0 
743  CONTINUE 

011  749  1 1 Is  1 , 8 
749  MMIXCIIDsO. 

DO  700  JDsl , NDAYS 
N1=(JD-1)*9-H 
N2=N1+1 
N3»NU2 
N4&N1+3 
N5s»i  1+4 
N6=N 1 *5 
N7sn,l+6 
M03NU7 

VS(JP)*FLOAT(NARRAY(Nl )+NARRAY(N2) ) 

VN(JD)»NARRAY(N3)+NARRAY(N4)+NARRAY(N6)+NARRAY(N7) 

LlsLIST(JD) 

C 

C CALCULATE  NON-SCHEDULED  MIX 

C 

DO  800  IMIX*1»8 
MIX(IMIX, JP)=0. 

1F(VU(JD)  .LT.l .OE-04)  GO  TO  881 
MIX(IMIX#JD)a(XMIX(Ll ,IMIX, 1 )»NARRAY(N3)+ 

1 XMIX(Ll,IMIX,2)*NAPRAY(Nb)+XMIX(Ll#IMIX,3)#NARRAY(N4)+ 

2 XmIX(L1»IMIX,4)*NARRAY(N7))/VN(JD) 

881  MMIX(IMIX)sMMIX(lMIX)*MIX(IMlX» JD) 

800  CONTINUE  s 

MNUM(L1)sMNUM(L1)+1 
MfiACCLl  ) = MNAC(L1  )+NARRAY(Nl  ) 

MNAT(Ll)aMMAT(Ll )+NARRAY(N2) 

MNGA(L1 )sMNGA(L1 )+NARRAY(N3 )+N ARRAY (N6) 

MNMILCL1  )smNMIL(!.1  ) ♦NARRA  Y ( N4  ) +NARRAY  ( N7  ) 

700  CONTINUE 
C 

C CALCULATE  2-YEAR  MEAN  FOR  NON-SCHED  MIX 

C 

DO  704  111=1,8 

704  MMIX(III)*MMIX(III)/NDAYS 
C 

C CALCULATE  MEANS  FOP  AC,  AT,  GA,  AND  MIL 

C 

DO  745  LLLsO, 1 

IF (MNUM(LLL) . EQ.O ) GO  TO  745 
MNAC(LLL)sMNAC(LLL)/nNuM(LLL) 
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HNAT(l*LL)*MNAT(LLL)/MNUM(LLL) 

MNgA  ( LLL  ) *MNgA  (LIjL)/MNUM(LLL) 
PNMIL(LLL)»MMMIL(LLL)/MNUM(LLL) 

745  CONTINUE 

WRITE (IOUT)  MNUM,MUAT,MNAC,MMGA,MNMIL,MMIX 

CALL  SUBROUTINE  TO  CALCULATE  DISTRIBUTIONS,  ETC 

CALL  XFRDIS(NDAYS,VS#VN*MIX,LIST»MNUM) 

CALL  RELEAS(IDSK) 

CALL  RFLEAS(IOUT) 

CALL  RELEASUOUT2) 

CALL  RELEAS(IDEV) 

IF(IA.LT.NA)  GO  TO  500 
GO  TO  603 

600  WRITE(5,601)  IA,AN1,AN2 

601  FORMAT ( * FOR  IA  »'I4,'  AN  1 a »,A3,'AND  AN2  « #,A3/) 

603  CONTINUE 

END 
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SUBROUTINE  XfRDI S ( NDA YS , VS , VN , MI X , LIST, MNUM ) 

DIMENSION  LIST(NDAYS), VS(NDAYS), 

1 VN(NDAYS),MNUM(0/1),IVINT(5),JVINT(5), 

2 MIX(8,NDAYS), IOHD 1(731), IORD2C731) 

DIMENSION  IVN(0/1,5) 

REAL  MIX,MIXA,IVINT,JVINT 
REAL  IVN 

COMMON/ORDERS/ILIST 
DIMENSION  NPI2(0/n 

DIMENSION  NPI(0/1),NSIG(0/1),PI(0/1,5),SIG(0/1,5),NV2(5), 

1 NV1(5),IBOX(5,5),NST(5,5,250),VSA(5,5),VNA(5,5), 

2 MIXA(0,5,5),AMIX(fl) 

DATA  NPI , NSIG, (SIG(0, I ) , 1*1 , 3)/4*3, .5, .85, 1 .0/ 

DATA  (5IG( 1,1), 1*1, 3)/. 5,. 85, 1.0/ 

COMMUN/DEVS/IOUT 

this  SUBROUTINE  SEPARATES  TOWER  TRAFFIC 
INTO  VFR  AND  IFr  DAYS  AND  FOR  EACH  OF  THESE 
SETS  OF  DAYS  I 

(1)  CALCULATES  NON. SCHEDULED  MIXES 

(2)  CALCULATES  DISTRIBUTIONS 

(3)  AVERAGES  SCHEDULED  VOLUMES  AND 
NON-SCHEDULED  VOLUMES  AND  MIXES 
FOR  EACH  OF  THE  BOXES  (I,J) 

DEFINED  BY  THE  DISTRIBUTION  LEVELS 

(4)  CALCULATES  INTERVALS  IV(I)  AND  JV(J) 

S.T.  I V ( I ) IS  THE  LARGEST  SCHEDULED 
VOLUME  FOR  THE  I-TH  SET  OF  BOXES,  AND 
JV(J)  IS  THE  LARGEST  NON-SCHEDULED  VOLUME 
FOR  THE  J-TH  SET  OF  BOXES 

DATA  (PICO, I), 1*1, 3)/. 5, .85,1.0/ 

DATA  (PI(1, I), 1*1, 3)/. 5, .85, 1.0/ 

IMSTsO  : IFR  CALCULATIONS 
ILISTvl  ; VFR  CALCULATIONS 

DO  1000  ILIST*0 , 1 
NPI2(ILIST)*NPI(1LIST) 

ICNT  * NUMBER  OF  DAYS  WITH  THE  TYPE  OF  WEATHER 
CURRENTLY  SELECTED 

ICNTsMNUM(ILIST) 

XNaFLOAT(ICNT) 

IF  THERE  APE  FEWER  THAN  10  OF  THESE  DAYS, 
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GO  TO  188  AND  DO  AN  ALTERNATIVE  CALCULATION 

NIB*UPI(ILIST) 

NJB*NSIG(ILIST) 

DO  210  1*1, NIB 
DO  210  J*1,NJB 
210  IB0X(I*J)»0 

IF(ICNT.EQ.O)  GO  TO  588 
IF(ICNT.LE.IO)  GO  TO  18R 

ORDER  THE  DAYS  BY  SCHEDULED  VOLUMES 

CALL  ORDER (NPAYS, VS, LIST, ICNT, I0RD1) 

ORDER  THE  DAYS  BY  NON-SCHEDULED  VOLUMES 

CALL  ORDER(NDAYS,VM,LIST, ICNT,I0RD2) 

GFT  DISTRIBUTION  LEVELS  FOP  SCHEDULED  VOLUMES 

CALL  DISLEV(*PI(ILIST),PI#XH,NV1  ) 

GET  DISTRIBUTION  LEVELS  FOR  NON-SCHF.DULED  VOLUMES 

CALL  DIST.EV(NSIG(IL1ST),SIG,XN,NV2) 

FILL  BOXES  WITH  ZEROES 


COUNT  THE  DAYS  THAT  GO  INTO  EACH  BOX 

DO  201  IALF*1,IC"T 
DO  202  IBETal,ICf-T 

IF( I0RD1 (IALF) , wE. I0PD2(IBET)  ) GO  TO  205 
1*0 

206  1*1+1 

IFUALF.GT.NV1  (I)  ) GO  TO  206 

,1*0 

207  J*J+1 

IF(IBET.GT.NV2(J))  GO  10  207 
IbOX(I,J)slBOX(I,J)+l 
10RDR*IB0X(I, J) 

IFCI0RDR.GT.25O)  WFITE(5,91  12)  I0RDR 
9112  FORMAT ( * NST  NEEDS  RE-DIMEN SIGNING  -'/ 

1 ' 1B0X.GT.250  * '15/) 

;jst(  i,j,iopdr)*iprd2cihet) 

205  CONTINUE 
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202  CONTINUE 
201  CONTINUE 

CALCULATE  AVERAGES  FUR  EACH  I,J  FORj 

(1)  SCHEDULED  VOLUMES  (AVS) 

( 2 ) NON-5CHEDULED  VOLUMES  tAVNJ 

(3)  NON-SCHEDULED  MIXES  [AMIX1 

DO  400  I«1,NIB 
DO  400  Js 1 , N JB 
AVS»0. 

AVN=0. 

DO  412  JJ*1,5 

412  AMIX(JJ)aO. 

NDcIBOX ( I # J > 

AMAXI=0. 

AMAX J*0 . 

IF(ND.EQ.O)  GO  T'l  424 
DO  401  LDai.NO 
NDAY=NST(I# J.LD) 

AVNaAVNTVN(NDAY) 

AVS*AVS+VS(NDAY) 

DO  413  JJ*1,8 

413  AMIX( JJ)»AMlX(JJ)+VN(NDAy)#MIX(JJ#NDAY) 

401  CONTINUE 

AVS= AVS/ND 
AVNsAVN/ND 

IF(AVN.LT.1.0E-04)  GO  TO  424 
DO  414  JJ*1 . 8 

414  AMIX(JJ)aAMlX(JJ)/(ND*AVN) 

424  CONTINUE 

V5.A(I»J)sAVS 
VNA(I, J)*AVN 
DO  415  JJ*  1 .8 

415  MIXA(JJ,I,J)sAMIX(JJ) 

400  CONTINUE 

GET  INTERVALS  FOP  SCHEDULED  VOLUMES 

DO  420  Ial,NIB 
I2*MV1(I) 

NDAY*I0RD1 (12) 

IVIflT(I)*VS(NDAY) 

42)  CONTINUE 

GET  INTERVALS  FDR  NON-SCHEDULED  VOLUMES 
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no  430  J»1,NJb 
J2*NV2(J) 
NDAY*IORD2(J2) 
JVINTCJ)*VN(NDAY) 
430  CONTINUE 
GO  TO  268 


IF  FEWER  THAN  10  DAYS,  DO  THESE  CALCULATIONS 
INSTEAD  OF  THOSE  ABOVE 


188  CONTINUE 

NPI2 ( ILIST ) *1 
NIR*1 
NJB*  t 
1*1 
J*t 

DO  417  JJ*  1 ,8 
417  AMIX(JJ)*0. 

AVS*0. 

AVNsO . 

AMAXIsO , 

AMAXJaO. 

no  501  JD*1,FDAYS 

IF(LIST(JD) .NE.ILIST)  GO  TO  502 

AVS*AVS+VS(JD) 

AVM*AVN+VN(JD) 

AMAXIsAMAXI (AMAXI, VS( JDJ) 

AM AX J* AM AX  1 (AMAXJ, VN(JD)  ) 

DO  118  JJ* 1 , 8 

41  A AMIX( JJ)=AMIX(JJ)+VN(JD1*MIX(JJ,JD) 
502  CONTINUE 
501  CONTINUE 

VSAC 1 , 1 )*AV5/XN 
VH A ( 1 # 1 ) sAVH/XN 
DO  119  JJ* 1 , 8 

IFCAVN.LT. 1.0E-04)  GO  TO  419 
AMIX(JJ)sAMIX(JJ)/AVN 
419  MIXA(JJ,l,n=AMIX(JJ) 

IVINTC 1 JsAMAXl 
JVINT(1)*AmAXJ 
IB0X(I,J)*MN||M(IL,IST) 

GO  TO  288 
588  NlBaO 
NjBsO 

WPITE ( 5 , 47  3 ) ILIST,ICNT 
473  FORMAT(/5X»«EATHLRs'I2, ' 4DAY5*'I2/) 

283  COMTINUF 
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DO  479 

479  IVN(IIiIST,I)«IVINT(I) 

WRITE (IOUT)  IliST,NlB#NjB,VSA,VNA,MlXA,lBOX,IViNT,jVlNT 
1000  CONTINUE 

WRITE(23)  MNUM,NPI2,IVN 

RETURN 

END 
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SUBROUTINE  DISLEV(N,AR,X,NAR) 

DIMENSION  AR(0/1,N),NAR(N) 

commom/orders/il 

CALCULATE  DISTRIBUTION  LEVELS 

DO  40  Jal«N 
XVsAK ( IL»  J ) *x 
NAR(J)sIFIX(XV) 

XC»FLOAT(NAR(J)) 

IF((XV-XC) .GT.1.0E-03)  NAR(J)aNAP(J)tl 
40  CONTINUE 
RETURN 
END 
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c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  ORDER (ND, V/ LIST/ IC , IORD) 


DIMENSION  V (ND), LIST (ND), IORD CIC) 

common Vorders/il 


PICK  OUT  THE  ELEMENTS  <V(IV)>  OF  IV] 

FOP  WHICH  LIST ( I V ) ■ IL  - INDICATES  VFR  OR  IFF  DAYS 
AND  STORE  THEIR  INDICES  [IV]  IN  ARRAY  IORD 


IV*0 

1*0 

200  I*I  + 1 

IF(I.CT.IC)  GO  TO  300 
100  IVslV+1 

IF(IV.GT.ND)  GO  TO  300 
IF(LIST(IV).NE.IL)  GO  TO  100 
IORD ( I ) si V 
GO  TO  200 
300  CONTINUE 

REORDER  THE  INDICES  BY  INCREASING  VALUES  OF  VC  I J 

1*0 

ISAVEsO 

800  I»ISAV£+1 

ISA VE*I 
1*1-1 
600  1*1  + 1 

IF(I.LT.l)  GO  TO  800 

IF ( (1+1 ) ,GT. IC ) GO  TO  500 

IlsIORD(I) 

I2*I0RD( I + l ) 

IF(V(I1).LE.V(I2))  GO  TO  800 
IORDCI+1 )*I1 
IORD ( I ) *12 
1*1-2 
GO  TO  600 
500  CONTINUE 
return 
FND 
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* FOLLOWING  TEXT  PRlNTEn  FROM  FILE  DSKE I CLSFRQ, F 4 C4255.5163  ie-HAY”76 
CLSFR0.F4 

THIS  PROGRAM  COMPUTES  CLUSTER  FREQUENCIES  AT  EACH  DISTRIBUTION 
LEVEL,  AS  oefineo  BY  PKI). 

distribution  levels  from  tower  data  cijvj 
are  NOT  CURRENTLY  IN  USE, 

DIMENSION  I0R0<12?) .PI (3) ,NV<3) 

DATA  NPJ/3/, PI/,5, .55,1,0/ 

DIMENSION  NDC(12P!)  ,S VOL  <1217)  • VOL(1?0>#  I JV  ( 0/1, 5 ) , NS  (P/1, 5, 5 ) , 

1  mnUM(0/1), 

? «I VI7/1) ,NSUM(0/1, 5) ,FV(0/1,5,5) ,NI I (0/1) 

REAL  MNAT(0/1>,MNAC(0/1> 

DATA  I T 0/"52236/ 

DATA  ICL, I IV/"416?0. "44654/ 

REAL  IJV 

INTEGER  APC31) , AIR 

data  ap/'ros'  . 'oca* , *bal’ . 'EWR* , • jfk« , *lga*  , • i ah',  'Phl' . 

1 'PIT* , ' IAO' , 'FLL' » ' JAX* , 'MIA' , 'MKE' , 'TPA' , 'ATL' , 'CLT* , 

2 'ORD' , 'DTW , 'MSP' , 'CLE' . 'STL' . 'MSY* , *DAL' , 'DEN', 'SLC', 

3 'LAX* , 'SFO' , 'LAS' . 'SEA' , 'HNL'/ 

OAT  A ICF# I AND/” 41614, "777777700P00/ 

OATA  MOAYS/120/ 

WR I TE ( 5, 293  > 

293  FORMATC  LOCATION*?  IN  LIST  OF  FIRST  ANO  LAST  A I RPORTS7  ' / ) 

HE aD ( 5 , 294 ) NA1.NA2 

294  FORMAT ( 21 ) 

LOOP  OVER  AIRPORTS 
DO  1111  NA*NA1.NA? 

A I = Ap  ( NA  ) . AND  . D 
NAME«AlR,OR, icf 
NAmE2  = a I R , OR , I IV 
NAmE3sAIR,0R. I Cl 

OPEN  OUTPUT  TILE 

CALL  OF  I LE ( 22  » N AMf ) 

OPEN  INPUT  FILFS 

CALl  IF IlE(21,NAME2) 

CALL  IF ILE(20,NaMF3) 
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C READ  CLUSTER  ASSIGNMENTS 

C 

REaD(20>  NC.NDC.V^L 

READ  TOWER  DISTRIBUTION  DATA 

REaO( 2l ) NJV.NII.IJV 
00  839  JN«1 » 5 
GO  839  JM«1 i 5 
00  839  JL*0  * 1 
839  NS( JL. JM, JN)s0 

order  oays  by  oag  volume 

CALL  0R0ER(NDAYS, VOl. I ORD ) 

XNbFLOaT(NPAYS) 

GET  OISTIBUTION  LEVELS  (OAG  VOLUMES) 

CALL  0ISLEV«NPI,PI,XN,NV) 

LOOP  OVER  WEATHER 

O'1  20?  ILISTsB.i 
MaNII  ( ILIST) 

IE(NlV(lLlST).LT,t0)  N I s L 

NOC(NOAYS)  ASSOCIATES  A CLUSTER  NUMBER 
WITH  EACh  day 


count  the  pays  in  each  cluster, 
at  each  voi ume  level 

co  ip?  i?ay=i ,n"ays 

I CtNDC ( IOAY) 

I la? 

M 8 I I s I I *1 

IEiII.EO.NI>  GO  TO  10? 

I r ( IGRDUDaV)  ,GT,‘  vu  I > ) GO  TO  «8 
1*8  NS(  ILIST,  1 1,  IC)sA'(  ILIST,  1 1 , 10*1 
1(0  CONTINUE 

sum  the  hays  ECR  EACH  lE'’EL 
E OR  ALL  CLUSTERS 

DO  AEfi  J*  1 . N I 
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NSUMULIST,  J)*s 

00  300  !>1,NC 

N5»UM<  1LIST,  J)sNSUM(!LIST,  J)*NS(  ILIST.J.I  > 

300  CONTINUE 

CALCULATE  CLUSTER  FREQUENC IES 

00  400  l»l,NC 

AliNS(  HIST,  J,  I ) 

A2«NSUM( I L I ST » J) 

FI»ai/a2 

FVC ILIST. J, I >«Fl 

400  CONTINUE 

WR I TE ( 5 * 912 ) AIR 
912  FORMAT(/10X» 'AIRPORT: *A3) 

WRITE (5. 911)  < ( I , J.rvt ILIST, J, 1) , I«l,NC) . J»1»NI> 
911  F0«MAT(2X*2I6.G12.4) 

WR I TE  < 22 ) NC.NI 

WRITE 

200  COr  T J nuE 

WRITE 

WR I TE ( 22  ) FV 
00  111  IOEv*20,?2,2 
CALL  RELEASUDEV) 

111  continue 
1111  continue 

ENC 
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SUBROUTINE  OHOER(N0.V,  IORD) 
dimension  v(nd) , ir>Rn(No> 

DO  l V" 1 » NO 

300  IORD ( I V > * I V 


:<EORnE«  THE  INDICES  BY  INCREASING  VALUES  OF  V<I> 


l»0 

I S A V t.  * fc5 

800  I » 1 S A vt*l 
IS*VE»I 
I » I -1 
6!'W  I ■ I ♦! 

IF( I ,lT.1  ) GO  TO  P0- 
IF((I*l).GT.ND)  G2  TO  500 
U-IORLUI  > 

I2»I0RC< 1*1) 

IF(  V(  U)  ,LF  . V(  I?)  J r,0  TO  800 
I 0 « C < 1 ♦ 1 ) » 1 1 
I 0«D  < I ) » 1 2 
I = I -k 
GO  TO  600 
500  COnTI'juE 
RETUR  m 
ENo 
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SUHKOUTINE  0ISLEV(N. AR.X.NAR) 

DIMENSION  AR(N),NAR(N> 

CALCULATE  OISTRlaUTlON  LEVELS 

DO  40  J*liN 
XV»AR(J>*X 
NAR( J)«IFIX(XV) 

XC«FLOaT(NaR< J) ) 

IF<  (XV-XC)  .GT.1.0E-7I3I  NAR  < J ) «N  AR  ( J ) *1 
40  CONTINUE 
RETURN 

END 


••  E-5  •* 


nrnnr.ooncr. 


4NVUALI2ATI0K'  PROGRAMS 


• FOLLOWING  TEXT  PRINTED  FROM  file  DSkEIAPMFG, fa  [4255.5163  18-HAY-76 


apmfg.fa 

this  program  genera t c s files  for  input  into 

THE  A PM , 

FOUR!!)  K I NpS  OF  FtLFS  (SEE  RELOW), 

1,  daily  (averagfd  for  year) 

2,  HEADER 

3,  ANNUALISATION 

*,  PROFILE  (CLUSTERED) 

DIMENSION  MNUM(.vi) ,MR(3) . VSA(5.5) .VNA(5.5) . IB0*<5,5) 

01  MEN  SI  ON  NO<3), T*T(i?0) . V0L< 1440,2,3). A OR (24.3), 

1 CON  <2  A,  3)  ,PMIX(2A.  ft.  3)  .PFS(l?e> , VH  { 6°i . ? ) ,Pm<5) 

DIMENSION  I A N < 3 1 ) 

DATA  UNO,  IDF.  IMF,  I AF  . IPF/''7777->770Dflr’l0.”42?14,"442l4, 

5 "4P614 , 450214/ 

DATA  ICP/"41640/ 

OATA  ]T0/"5?236/ 

DATA  IaN/'HOS' , 'DPA* . 'BAL' . »EWR’ , • JFK’ , 'LGA' , • I AH’ , 'PML' . 

1 'PIT', ' I A 0 * > ' F L L ' . ' J * X ' , 'MU'.  ' M K E ' , ' T P A ' . ' A T L ' » ' C l T * . 

2 'ORO' , 'OTW* , 'MSP' , 'CLE' . 'STL' . 'MSY* , 'OAL' . 'OFN*. 'SLC*, 

3 'lAX'.'SFO'. 'LAS'. 'SPA'. ' H\L  ' / 

DATA  ,DAYS/120/ 

INTEGER  hThR ( 24  ) 

REaL  m I XA ( A . 5 « 5 ) 

REAL  mnaT(c/1),>'NAC(0/1)  . MNOA  ( 0/  1 ) . MNM  I L ( 0/1 ) .MMjx(P) 
INTEGER  JF, we, at, pf, TO, CP. CF 
0*TA  3F.HF.AF.PF/J6.l7.ia.19/ 

OATA  TU/2SS/.CP/21/ 

OATA  CF/22/, ICF/"4lftl4/ 

DIMENSION  FV(0/i,k,r) 

OD  204  I OE V * 16 , 19 
CAUL  ASSOEVC  IDE'1,  'OSK'  ) 

2V 4 CONTINUE 

HRlT£(5.63l) 

631  FORMA  T(  • LIST  LOCATIONS  OF  EIRST  AND  LAST  AIRPORTS?'/) 

RE  AO { M ,632  ) NA1.NA2 

632  FOR«aT(?I  ) 

DO  lfc.00  I A «N  A 1 , *' A 2 
I N h s I A M J A ) UNO.  I AND 
NAMElalNM.CR. iof 
NAmE2* I NM , QR , I HP 
NA:1E3*INM,0R.  Up 
NA,V(E4«INM,rR.  IPr 
CALL  OFlLE(t)F.NAMFl) 
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CALL  Of  ILE<HF.NAMr2) 

CALL  OFIlEIAF, NAME’S) 

CALL  0FILE(PF.NaMF4) 

NArtE«lNM,OR. I TO 
CALL  IF ILE(TO.NamF) 

NAMEelMM.OR. icp 
call  IFILE(CP.NaMF) 

NAmEbINM.OR, I CF 
CALL  IFILE(CF.NamE) 

REaO(CF)  NC1#NIi 
REaO(CF)  NCNI 

IF(MCl.NE.NC)  wp  i TE ( 5 • 804  > NC1.NC 

804  F0R«AT(/5X,'  NUMBER  of  CLUSTERS  not  CONSISTENT  ON  CF  FILE*/ 

1 10X , 2 1 5 ) 

IF(NU.NE.NI)  NR  I TE  ( 5 • 80S ) Nil, Ml 

805  F Orm  a T ( /5X  i ' » OF  SOHEO  INTERVALS  NOT  CONSISTENT  ON  CF  FILE*/ 
1 1 i!  X i 2 1 5 ) 

RCaPCCF)  FV 
call  RELEAS(CF) 

c 

c READ  CLUSTFRrn  PROFILES 

u 

REaO(CP)  lAl.NDTOT.NC 
nRJ  TE  (5,1135)  Ul.MDTOT.NC 
lk'5  FORMAT  (5X«A3,5X,  'PAYS  *,I5,5X,'NC  «'I5/) 

REaO(CP)  NO.TOT.VOL, AOR.CON.PMIV ,pfs 

c 

c WRITE  PROFILE  FILE 

C 

OTOT«FLOAT(NDTOT) 

DO  1(M  I PR* 1 , 3 
wRlTE(PF)  IPR 
DO  101  I H3 1 , 24 
DO  241  I P ■ 1 , 8 

241  PM( IP )*PMlX( IH, IP, IPR) 

AO«ADR( IH, IPR) 

COi<C«CON  ( I M . I PR ) 

*WITE(PF)  IH.PM, A^.CONC 
I S3  ( H-l  )*6P*1 
IF  IN* IS>5? 

I m I 

A R K 3 0 , 

DEpsL’ , 

00  144  INOusIS,  IF  IN 
I‘1 1 N« I m I N*1 
DO  143  I AOsl , 2 

14  3 VMtlMlN, I AO > 3 VOL < I NOW, I AD, IPR) 
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ARR*A*R*VH(1mIN,1) 

0EP*CEP*VH{ IMIN.2) 

144  CONTINUE 

I T E(PF)  ARR.DEP 
*R I te  < pf  ) vh 
101  CONTINUE 
100  CONTINUE 

call  RELEAS(PF) 

get  the  peaking  factor  for  this  airport 

PFm*e , 

DO  221  U2al,NDAYS 

PFMsAMAXl(PFM,PfS( 112)  ) 

221  CONTINUE 

GET  2-YEAR  AVERAGES  FOR  SCHEO i N0N-SCHEO 
VOLUMES 

REaD(TO)  I A? 

REaD(TO)  ^NUM.MN'aT.mhaC.MNGA.MNmIL.MMIX 
MN«mN'.Jh(0)*MNUH(i) 

XMn'sFlOAT(MN) 

VSY  = MNUM(3)*(MNaT  t 0 )*MNAC<0>  )+MMUM<l  )* 

1 <MNAC(1)a>MVaT(D  ) 

VSY*VSY/XM\ 

VNY*MNU*A<0)*(MNr,A<0)^MNMlL(!’)  >*mNUM<1)* 

1 (mNCA(1)*MHMIL(1)  ) 

VNY«VNY/XM\ 

I 

AVERAGE  CL"STEPEO  PROFILFS  and  HP  I TE  DAILY  FILE 
DO  22?  11*1.24 

222  aThMI1>«1 

MR  I Tf  ( DF  ) VSY.  V*iY,MMIX,HThR 
DO  301  I H* l . 2 4 
DO  341  IP*l.e 
P M ( IP)t0, 

DO  342  12*1.3 

342  PM( IP)*pm( JP)*P«I v( ih, IP. I2)*NDf 12 > 

PM( IF )*PM( IP)/OTOT 

341  COivT  I \iuE 

a 0 ■ 0 , 

DO  34?  12*1,3 
AfiAOR  ( IM|  I2)*Nn<  12) 

COf  C*CGN( Ih, 1 2 > *NP ( 12) 

343  CONTINUE 
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ADsAD/DTOT 

C0nC»C0NC/DT0T 

WRITEIOD  IH,PM.aO,CONC 

ISi(  IH-1>*60*1 

IfIN«IS*59 

I M j Ns  0 

ARRs0. 

DEP=0. 

00  344  I NOW* I S , I F J N 

IMINsIMIN*! 

00  345  IAD«1,2 
T E m P s 0 , 

00  346  I NTsl , 3 

346  TEmPb TLMP+ VOL U NO'J, 1 AO, I NT ) *N0 ( 1 NT > 

VH< I M I N , IAD)»T£MP/0T0T 

345  CONTINUE 

ARR=A«R*VH( I M I N , l ) 

oep«oep*vh<ihim,?) 

344  COnTjnuE 

WRITE(L)P)  ARR.0TP 
WHITE (OP)  VH 
301  CONTINUE 

call  RELEAS(OF) 

NBQXS0 

NRuNS»k! 

WHITE  ANNUALIZATION  FILE 
00  1500  1276*1,2 

RE  40 (TO)  ILIST,N10,NJR,VSA.VNA,MIXA. 1R0X 
NH0XS*? 

ir (NI9.E0,P)  GO  TO  1500 
IE (NJ9.EQ,0>  GO  TO  1500 
00  7 IB*1#NIB 
00  7 JB*1, NJ8 
7 N80XS»M90XS*IR0X( IB, JR) 

NROX*NbOX-»NROXS 
XPOXSsNROXS 
00  1 1R»1,MB 
00  l JR«1,NJB 

I F < VSA ( IR, JR) .GT.l .0E-04)  GO  TO  2 
IF<VNA(IR,jR>.LT.1.0E-04)  GO  TO  1 
2 nhu^s«nruns*nc 
00  5 NCC«1,NC 
5 NR(NCC)«NRUNS-(NC-NCC) 

WH 1 TE ( aP ) NC.NR 

4HI TE(aF)  vSA( IR,  JR) , VNA( IR, JR) , (MIXA( IM, ir, JR) , IM«1 ,8) , ILIST 
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DO  4 1 C*1 * NC 

W«EL0AT<  I Rox  ( IR,  JR)  )*FV<  I L I ST . IP.  IO/XB0XS 
W«H*(XB0XS/731. 

HR  I TE ( AF ) NR(IC).IC,W 
4 CONTINUE 

1 continue 

15kJ0  CONTINUE 

WRITE  HEADER  FILE 

wRitechF)  i an( i a) ,Pr m,mnum(d ,mnum(3) .nRuns 

WRJTE(HF)  MNaC<i)  ,MfJAT(D  ,HNGA<1>  ,MNMIL(1) , 
1 MNAC<e)  ,MNAT<e>)  , “NGA<0>  .MNMlL<0> 

CHECK/NOCHECK 

IChECK«NBOX/MN 
IF(ICHECKiE0,1)  GO  TO  6 
HR  I TE ( 5»  601 ) I AN ( I A ) 

601  FORMAT < 5X»  ' NOCHECK' ,5X, A3) 

GO  TO  8 

6 HR  I TE  < 5 • 602  I I A N C I A > 

602  FORMAT ( 5Xi ' CHECK 5X , A3 ) 

8 CONTINUE 

1000  continue 

END 
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• FOLLOWING  TEXT  PRINTED  FROM  file  0SkE*FPRINT.F4  [4255,3163  18-MAY-76 
FPR I NT  « F4 

THIS  PROGRAM  OFFERS  THE  OPPORTUNITY  OF  OBTAINING 
PRINTED  OUTPUT  OF  THE  CONTENTS  OF  THE  UNFORMATTED 
FILES  WRITTEN  BY  APMFG, 

OAT  A IaNO.  IOF,  IHF,  IAF,  l PF/"777777700000 , "42214 , "44214 , 

1 "40614, "50214/ 

COMMON  UNO#  IOF,  IMF,  IAF,  IPF,  I AIR 
WRITE (5,100) 

100  FORMAT!'  AIRPORT?'/) 

RE  aD  ( 5 , 200 ) I A I rj 
2K0  FORM* T < A3 ) 

1 WR I TE ( 5 , 300  ) 

300  FORMAT!'  WHAT  riLE  WOULD  YOU  LIKE  PR1NTEO?  — V 
1 ' DAILY, HEAOFR, ANNUALIZATION, PROFILE, NONE?'/) 

RE  AO ( 5 , 400 ) A 
400  FORMAT(Al) 

IF(A,E3. 'O' > GO  TO  10 
IF ( A , EG  , ' H ' > GO  TO  20 
IF< A, EG. ' A' > GO  TO  30 
IF(A ,EQ.  'P*  ) GO  TO  40 
GO  TO 

10  CALL  DPR 
GO  TO  1 
20  CALL  HPR 
GO  TO  1 
30  CALL  APR 
GO  TO  1 
40  CALL  PPR 
GO  TO  l 
50  CONTINUE 
EUq 
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subroutine  OPR 

DIMENSION  XM(8> ,SM<R> • VM<60,2> 

INTEGER  WTh(24) 

COMMON  UNO.  IOF,  u,  12,13.  IAIR 
CALL  ASSDEV<16, *0$K' ) 

I AN«(  I AIR,  AND.  UNO)  .OP.  IOF 
CALL  IFILE(16.  UN) 

REaD(16>  vs.vn.xm.rth 

RRlTE(3»100)  VS.V*,XM,WTH 
DO  1 Jh-1,24 

RE aO ( 16 ) Ih.SM, ADP.CONCEN 
MR  I TE  ( 3 , 2«90  > IH.SM,  AOR.CONCEN 
REaO(16)  ARP.DEp 
MR  I TE ( 3 , 300  > ARP.OEP 
RE aD ( 1ft ) Vh 
R«lTE(3,40e)  ( <VH<J,1>,VH< J,2>  >. J«l,60> 

1 CONTINUE 

100  FORMAT ( /13x »' VS*  »,F12.0.10X, *VN»  • . F12 . 0/8G12 . 4/3X, 24 1 2 ) 
200  FORMAT ( 5X » 'HOUR  ='13/ 

1 8012.4/ 

2 SX.'AOP  *•  .F12.6.5X, 'CONCEfJ  ='.F12.6) 

3C0  FORMATC  ARRIVALS  =• .F12.6.5X, • DEPARTURES  s'Fl2.6> 

400  F0RMAT(5(5X.2Fi^.^)  ) 

RETURN 

END 
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SUBROUTINE  hpr 

DIMENSION  VM(8),N(4) 

COMMON  lANO. II, JHF, 12, IS.  I A I R 
CALL  ASSDE V ( 16 , • DSK  • > 

I A N * ( IaIR.ANO.  UNO)  .OR.  IHF 
CALL  If ILE (16> 1 AN) 

RE  AO  ( 16  ) lAlR.Pf  ..NOV.NOI  .NRUNS 
WRITE (3# 100 > I A I R , PF , NQV . NOI iNRuNS 
RE  AD ( 16  ) VM 
wR I TE ( 3 » 200 ) VM 

100  FORMAT(///10X. ’AIRPORT) ‘A3/ 

1 1»X, ’PEAKING  FaCtOR: 'G14.4/ 

2 15 IX, ' VFR  DAYS) ’I?/ 

3 10X,  • I FR  DAYS)  'IV 

4 ll?X, ’ANNUALISATION  RUNS  ) ' I 5///  ) 

270  FORMAT(20X'MEANS'/5X8G13.3) 

300  FORMAT(///10X. I5.J0X.3I5) 

4/0  FO«MAT(/10X'SCHEDULEO  VOLUMES ’Gl3. 2/ 

1 IPX, 'nON-SHEOUlEO  VOLUME) 'G13.2/ 

2 1/X, ’mIX) ' 8G13 . 2/ 

3 1/X, 'hEAThER! ’ . 13) 

500  FORMA T(10X, ’N) 16, 5X, ' H '. 16.5 Y, ’WEIGHT) *G13.2> 
CALL  RELE AS < 16 ) 

RETURN 

ENO 
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SUBROUTINE  APR 
DIMENSION  VM(9),N<4> 

COMMOM  IANU. II. IMF, IAP, 12,  IAIR 
CALL  ASSDEV ( 16 , • DSK  • ) 

IAn»<  UHiAND.  IaND).OR,  IMF 
CALL  IFILEU6,  1 AN ) 

REaD(16)  UIR.PF  .NDV.N'DI  .NRUNS 
REaD<16>  VM 

31'0  F0RMAT(///l-3X.  I5.10X.3I5) 

4 m FORMAT(/10X'SCHEOULEO  VOLUME! 'Gl3, 2/ 

• l U"X,  •NON-SMEOUlE”'  VOLUME: ’f.13.?/ 

2 10X i ’Mix: '8G13.2/ 

3 10X,  ueaTner:  ’ . 13) 

format (10X,  't\i  * , If  ,5X,  ' 1 : • . I6.5X.  'WFIOHT:  'G13.2> 
call  REL£AS(l6) 

I AN»( IaIR.AND. I AN") .OR.  IAF 
CALL  IF  ILE ( 16  > I AN  > 

NO.MRUnS/3 

IF< (NO-1) /4«4.E0. (NO-1) ) WRITE (3. 600) 

600  FORMA  T ( IHl ) 

00  25  JM*1,NQ 
RE AO ( 16  ) N 
w«ITE(3.30B)  N 
RE aO ( 1 6 ) Vj,V2.wm,IW 
WWJTE(3.40I^)  Vl,v?.VM,lW 
00  26  J«1 i 3 

RE  AO  (16>  If-.lP.w 
WRITE (3. 500)  IN.IR.W 
26  CONTINUE 
25  CONTINUE 

return 

End 
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SUBROUTINE  ppr 

DIMENSION  XM(0) ,SM(8) ,VH<60,2) 

COMMOM  IANO.il, 12, 13.  IPr.lAIR 
INTEGER  wTh<24) 

CALL  aSS0EV(16, »d^K*  ) 

IAN»(lAlR,ANO.lANO).OR.lPF  1 

CALL  IFILEU6,  I AN  > J 

NCe3 

00  •>  JC«1 1 NC 
IF(JC.GT.l)  WRITE <3,600 ) 

600  FORMAT ( 1H1 ) 

RE AO ( 16  ) NP 
WR I TE ( 3 , 100 ) NP 
00  1 Jh»l , 2 A 

READ ( 16  ) lH, SM, ADR. CONCEN 
W«lTE(3.200)  IH,SM.A0R. CONCEN 
READ  < 16  > ARR.DEP 
WR I TE ( 3 . 300 > ARR.TEP 
RE  AO ( 16  ) VH 

WRITE (3, 400)  c (WH( J.l) , VH( J,2) > . J*1,6P) 

1  COsTINUE 
5 COnTJVuE 

100  FORMAT(//10X*PROF1LE’ T5//> 

200  F0rmaT(5Xi  'HOUR  a ' I 3/ 

1 6G12.4/ 

2 5x,'ADR  «• ,F12. 6, 5X. 'CONCEN  =',F12.6) 

300  FORMAT!'  ARRIVAL?  = ' , Fl2 . 6 , 5X.  ' DEPARTURES  ■*Fi2.6) 

400  FORMAT  (5(5X,2Fl0,  *)  ) 

RETURN 

end 
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• FOLLOWING  TEXT  PRINTED  FROM  FILE  OSKE I WEATHR . F4  C4255.516J  18-MAY-76 


C weathr 

C THIS  PROGRAM  SEPARATES  DaYS  (FOR  TWO 

c years)  into  vfr  ano  ifr  days,  input  tape  written 

C BY  WEAC0M.F4.  ALSO  ASSIGNS  VFR  OR  IFR  STATUS 

C TO  EACH  HOUR  OF  EACH  DAY. 

C 

DIMENSION  I A I R ( 30  ) 

INTEGER  AIR 

DIMENSION  IA(4), ICL<8>. IVS(B). IVA(8.731) 

OAT A IWP, I AND/"53S40. "777777700000/ 

DATA  lAlR/'OAL' i 'MIA* , • TPA* . 'MSY* . • IAH' . 'PHL'i 'DCA*. 'ATL' . 'CLT* 
1 'JAX', 

1 'STL  '.  'LGa' , 'EWR* , 'BOS' . 'CUE' . 'MKE* , 'MSP' , 'HNL' , 'DEN' , 'LAS' . 

1 'LAX', 'SFO' . 'SLC' . 

1 'SEA* , 'BAL' , ' IAO' . ' JFK* , 'PIT' . 'ORO'. 'DTW'/ 

U 

C GET  INPUT  DEVICE  NUMBER 

C 

HR  I TE ( 5 1 30 ) 

30  FORMAT!'  INPUT  DEVICE  NUMBER?'/) 

RE AO ( 5 . H ) I DP  V 
11  FORMaT(I) 

C 

C REAP  a RECORO 

c 

I APT*,') 

1123  IUAYS0 

I ApTs  I aPT*1 
0.)  1130  1*1,731 
00  1134  12=1.8 
1134  I VA ( I ? , I ) *0 
1130  CONTINUE 

IF(  UPT.GT.30)  GO  TO  2000 
1100  REaD< IDEV.ERR=1P0P,ENO=i000)  IA.ICL.IVS 
IF(  IDAY.GT.8)  Gn  TO  H2 
AIR=1* I R ( I APT) 

NAmE*<aIR,and. Ian")  .OR.  iwp 

c 

RR I Te ( 5 , 14p  ) I a ( 1 ) , A I R 

140  FOWMAT(*  STATION  NUMBER  S' 18. IPX. A3/) 

I OuT=20 

call  OF ILE ( I OUT , NAME ) 

112  IOAYsIOAY^l 
C 

C ASSIGN  VFR  OR  IFR  STATUS  TO  EACH 
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OBSERVATION  TOR  THE  DAT 

DO  1136  J J« 1 * 8 

IS(<1CL<JJ>  .GE.i5).*N0,  IIVS(JJ)  .GE.30))  I VA  < JJ I DAY ) «1 
1136  CONTINUE 

GO  TO  11051 
120(?  CONTINUE 

WRITE  NUMBFR  OF  OAYS  FOUND  TO  TERMINAL  FOR  A CHECK  - 
SHOULD  8F  731 

IF( IDAY.NE.731)  HR  I TE ( 5 . lb?  ) IDA* 

ie?  FORMftTC  NUMBER  OF  OAYS  FOUND  FOR  THIS  AIRPORT! ' / 

1 20X,I6) 

'"’RITE  LIST  OF  v/FP  aNO  IFR  r>AYS  ON  DISK  FILE 
1 T£  < I OUT  ) A I R , I VA 

ENo  file  IOUT 

CAUL  RELEASUOUT) 

GO  TO  1120 
2300  CONTINUE 

END 
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C WEATM2.F4 

C 

01  MENS  I ON  N < 3 » » L C S ) , IVA(8.731>, I V? (24 . 122/152 ) 
OATA  'j/'EWRW0' , •jFKw'0' . ' LGAW0 ' / 

DATA  l/'EWRWP', *JFKWP», 'LGAWP'/ 

DO  2k! 4 lal.3 
N A M E * N ( I ) 

call  i f i le ( 22 » name  > 

RE  AO ( 20  ) I A I R • I V A 
DO  3S.1  JJ»122.152 
DO  201  J23l » 8 
J3* ( J2-1 ) *3*1 
00  7(?  J4«J3.J3*2 
K2(J4, JJ)sIVA(J2, JJ) 

70  CONTINUE 
201  CONTINUE 
320  continue 
NA^EbL ( I > 

CALL  OF ILE (21 , NAMr ) 
wn I Tt (21,101)  I A I » 

121  FORmaT (2X.A3) 

WR I TE (21.102  ) IV2 

122  FORMAT ( 2 4 1 2 ) 

CALL  RELE AS ( 20  > 

CAlL  RELEAS(21) 

203  CONTINUE 
E'.ij 
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• FOLLOWING  TEXT  PRINTED  FROM  FILE  OSkE l WEATH4 . F 4 C4255.5163  18-MAY-76 

C REATH4.F4 

C 

THIS  PROGRAM  PRINTS  OUT  CEILING  AMO 
VISIBILITY  DATA  FOR  EUR , L GA , JFK ( OR  ANY  OTMER 
airport  fo»  that  matter)  from  an  input  tape,  you 
have  TO  R(J'  THEM  ONE  AT  A TIME  AS  THEY  ARE  NOT 
CONTIGUOUS  ON  THE  WEATHEP  TAPE 
FILE  I?  IS  LOA 
r ILE  13  IS  ERR 
PILE  27  IS  JFK 

INTEGER  AIR 

DIMENSION  I A (4) . JCLf 8> . IVS(fl) , IVA(8.731) 
get  input  oevioe  number 
RRITE(5.3®)) 

3ji  format < * Input  r> e. i c E number?’/) 

REaO(5.U>  I DEV 
11  FORmaT(I) 
mR I TE ( 5 . 109  > 

1£!9  F0PMAT(*  WMAT  aI'?PORT?’/) 

REaO(5,11R)  AIR 
119  FO«mAT(AJ) 

1 TL ( 3 • 244  ) AIR 

244  F0RMAT(tHl///6ex, A3//) 

WRjTt (3.245) 

245  FJRhaT<5X, ’OATE* ,?2X, ’CEILING’ .?7X, 'VISIBILITY' //✓/) 

READ  A RECORD 

1123  IDAY*F 

DO  1132  1*1.731 
DO  1134  12*1.8 
1134  IVa(I2,I)*/ 

113(3  CO'.TpioE 

11/0  READ(  IDFV.FPR  = l.’Pf’.FNr'*100Ci)  IA.ICL.IVS 
IF(  ID# Y.GT.F)  G”  TO  112 
RPJTE(5.14(>>  I a ( i ) , A I R 
1 A 0 FORMAT!*  STATION  NUMBER  * ’ I 8 . IPX, A3/ > 

112  I3AY«IDAY*1 

PRINT  OUT  '“EILING  AND  VISIBILITY  IF 
122.LE. Iuav.LE.152 
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1 Da  TE  « I OAV-121 
IE(IOATE.LT.l>  60  TO  112 
l F ( I0ATE.CT.31)  CO  TO  1000 
WR I TE  <3,2*3)  IDATE, I CL . I VS 
243  F0RMAT<2X#'MAYMJ,*,1972'5X.8I4,5X,8I4> 

t 

1136  COnTIVUE 
CO  TO  1100 
1000  CONTUSE 


2000  CONTINUE 
ENo 


JO  'J  D L)  J DO  U L)  D 
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• FOLLOWING  TEXT  PR1NTEH  PROM  PILE  OSkE » TORMA Y . F 4 C4255.5163  18-MAY-76 
C T0WMA Y > P 4 

c 

DIMENSION  LlST(73l>,VS<73l)»VN(731)  . 
i NAtIRAY(6588>.XMixcc,/i,ij,4>,MJX(8,73l) 

DIMENSION  WTH(?4).XM(B) 

DIMENSION  V0L(e/i,2,2) 

DATA  ITU,  I WE,  I TO,  l AND/M5225ft, "5361 2, "52236. "777777700000/ 

DATA  10t/"42l42/ 

OATA  (XM!X(0. K,d#k*1. 8 >/0.»0.  ,0. . .35,0.0.  .15,  .80.0.0/ 

DATA  <XMIX(3,K,2),K«l,0)/0. ,0. ,P. , .35.0.0. .15. .80,0.0/ 

OATA  (XMIX(l,K,t ) ,Kal,8>/0. .0. ,0. . .01. .0, .03, .96,0.0/ 

OATA  (XMIX(1,K,2) ,K*l.B>/0. ,0. .0 . . .01.0.0. .03, ,96,0.0/ 

OATA  (XMIX(0,K,3) ,Ksl,8)/0. ,0. .C. . .20,0.0, . 10. .30. .40/ 

OATA  (XMIX(0,K,4),Ks1,8>/0. ,0. .0. , .20.0,0. .10, ,30.,40/ 

DATA  (XMIX(1,K,3) ,K*1.8>/0. ,0. ,0. , .20,0.3. .10. .30. .40/ 

DATA  (XMIXd.K,  A)  ,Ksl,0)/0.  ,0.  , .20.0,0.  .10,  .30.  .40/ 

COmmon/OEVS/IOUT 

real  MIX 

MO*  many  aTRPORTS  THIS  R'IN? 

UR  I TP ( 5 , <0) 

RE  AO ( 5 , 21 ) WA 

I *»0 

500  I A* I A + 1 

r.ET  name  op  a IMPORT 
WRlTE(b,330) 

330  FORMAT(///»  W-iaT  AIRPORT?'/) 

REaC(5,335)  I A I o 
335  POum*T(A3) 

GET  name  op  pile  WITH  list  op  VPR  an 0 
ipr  pays  (ueather)  por  this  airport 

ANO  PILE  with  TOWER  DATA! 

ALSO  NAME  OUTPUT  PILE 

c 

l NaMEs I A I R , AND . IA‘  0 
NAhET*INAME.OR. IT 
NAhEwsP'AME  .oh.  IWP 
NAmE2» I name . OR. ID1 

C 

C OPEN  TOwrfi  Data  PILE 

L 
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call  IF  1 LE  < 22»  NaMFT ) 
I0EV«22 

21  FOhmaT(101) 

I0uT«2l 


OPEN  OUTPUT  FILES 

call  ofile(IOut,vame2) 

30  F0KMAT(«  HOW  Many  AIRPORTS?*/) 

iosKisa 


OPEN  WEATHER  file 

call  ifilec  IDSK.NAMEW) 

REaDIIOSK)  UIRi.LIST 
REaD(IDEV)  IAIR?,VARRAY 

CHECK  that  FILES  are  INDEED  FOR  THE  AIRPORT  WANTEO 

1E( 1 AIR1.NE. I A I R ) GO  TO  600 
IF( IAIR2.NE. I A I P ) GO  TO  600 
wR I TL ( I OUT  ) I A l R 

DO  700  JDsl,l*;2 
M*  ( J3-1)*9*1 
N2  « *'1  ♦ i 
K 3 a 1 ♦ 2 

N5*f'l*4 

N6sN1*5 
N7*>,l  + 6 
N3«N1*7 

VS( JD)=FLOaT(NARRAY(N1 > *N ARRAY (N2)  ) 

VN( JlO»NARRAY(N3)*NARRAY(N4)>MAPRAY(N6)*NARRAY(N7> 

LIsL I ST ( JO ) 

CALCULATE  * ON-SCHEDULED  Mix 
00  6kiP  JM I X*1  * 8 

Mlx(I*UX,JO)*IXMI»(H.  I M I X . U*NaRRAY(N3>* 

1 XMJXfLl. IMIX,2)*NaRRAY(N6)*XMIX<L1. IMIX,3)*NARRAY(N4>4 
? XMIX(L1» IMIX.4)*' ARRAY(N7) )/VN( JO) 

800  CONTI  :je 
700  CONTINUE 

DO  A? 4 I 1*122.152 
VSl  = VS< I I > 

VNj«VN( I I ) 

DO  605  I I 2 = 1 # 8 


• INCIDENTAL  PROGRAMS 


8*?5  XH(I12)«HIv(1I2.II> 

00  806  II2al(24 
806  WTh< 1 1 2 > «L  1ST < 1 1 ) 

IO*Y*I 1-121 

WM I TE ( I OUT ) IDAY.VSl, VN1.XM.WTH 
804  CONTINUE 

CALL  RELEAS(IDSK) 

CALL  RELEASUOUT) 
call  RELE*S<IDEV) 

IE(lA.LT.NA)  go  TP  500 
GO  TO  603 

600  WR I TE  ( 5 , 601 ) IA.AU.AN2 

601  FOHMAT<*  For  IA  s'I4,*  ANl  3 *.A3.'AN0  AN2  S '.A3/> 
603  CONTINUE 

END 
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* INCIDENTAL  programs 


• FOLLOWING  TEXT  printed  FROM  FILE  DSkE:D*ILY.F4  C4255.516J  18-MAY-76 
DAILY. F4 

DIMENSION  aN<3> ,X“<8> ,WTH<24> 

DIMENSION  SM ( 8 ) , vw  < 60 » 2 ) 

INTEGER  AN 

DIMENSION  VOL <144?, 2) . ADR (24) . CONCEN(24) , 

1 PMlXP(24»e> 

DATA  AN/'EWR'  , ' JFK'  , 'LGA'/ 

DATA  I 01  * 102. I AND. I WP/"42142, "4 2144, "777777700000, 

1 "53640/ 

WH I TE ( 5 » 106  ) 

106  FORMATJ/*  INPUT, OUTPUT  DEVICE  NUMBERS?'/) 

REaO(5,107)  I D E V , TOUT 

107  F0hMAT(2I) 

DO  12  1*1.3 

23  READ!  IDEV.ERR=!12.END  = 24)  IAIR.NPAYS 
GO  TO  l?4 

24  GO  TO  23 
124  CONTINUE 

IN bIAIR, AND. I ANn 

I name* in, OR. I D i 

I'ijslN.DR.IWP 
CALL  I F ILE ( 20 » I name ) 

CALL  IF ILE(22.  In3) 

NEaD(20>  I a 2 
RE  aD ( 22 , 3 ) I A 3 
3 F0RMaT(2X. a3) 

wp I TE ( 5 , 10f ) NO ays 
105  FOhVATI  • NDAYS  s'  IS) 

DO  42  IDAYbI.NOayR 
HEaU(?2)  ip.vs.vn.xm 

REmD ( 22 . 5 ) WTH 
5 FnAMAT(24l2) 

WR I TE ( I OUT ) VS, VN, XM, WTH 

REaC ( I CEV  ) IDAY9,TOTAL,VOL.ADR.rONCEN,PMlXP,Pr 
on  40  IMB1.24 

DO  41  I Msl , 8 
41  Sn<  IM)SPMIXP(  IH,  T *' ) 

WRITE  ( I OUT)  IH,<5M,A"iRUH),C0NCEN<  IH) 

ISb( I H-l ) *60*1 
lElNeIS*59 
1 M I Nl0 
A«Rs0  . 

OE.'  = t . 

DO  44  l nQWb  I S » irpj 
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INCIDENTAL  PROGRAMS 


I M 1 N» I * I N*1 
DO  43  I AOal > 2 

43  VH{II-IN.IAO)*VOL(INOW,IAD) 
ARRtARR*VOL<INOk',l) 
0EP«CEP*V0l(IN0w, ?) 

44  CONTINUE 
HRlTE(lOUT)  ARR.OFP 
NR l TE  < I OUT ) VH 

40  continue 

42  CONTINUE 

CALL  RELEASE) 

ENu  PILE  IOUT 
Call  RELEAS(22) 

12  CONTINUE 
Enc 


cz  n 


INCIDENTAL  PROGRAMS 


• FOLLOWING  TEXT  PRINTEO  FROM  FILE  OSKE t JACK . F4  C4255.516J  lfl-MAY»76 
JACK  . F 4 

DIMENSION  XM(S) ,sm(«) , VH(60,2) 

INTEGER  WTm ( 2 4 > 

*'  R I T t ( 5 • 9 7 ) 

97  FORMAT!  • HOW  MANY  OATS  DO  YO'J  WANT  PRINTED?'/) 

RE  AO  ( 5 , 98 ) NDAYS 

98  FORMAT(I) 

DO  5 JDAY«J,NOAYS 
Ir< JDAY.GT.l)  WR I TE ( 3 . 6H0  ) 

6/3  FOwM*t<1H1) 

REaO ( 1 6 ) VS.VN.VM.WTH 
WR I ?E ( 3 * 100  ) VS.VN.XM.WTH 
OD  1 Jwel,24 

RE  aO ( l ft  ) Ih, SM, aqR( OOvCEN 
w •?  I T E (3,200)  1H,Sm>ADR#CONCEN 
R E A D ( 1 6 ) ARR.DEP 
W>lTE!3t30P>  AHR.-EP 
RE aD ( 1 ft  ) V h 

HR  I U C3.40P  ) t(vH(J.l)*VH(J,2)>.J*1.60) 

1 COivT  I \»uE 
5 CO,  T I juF 

1/0  FORM*T(/10X. 'VS*  • ,Fl?,H,13X,  ’W=  ’ , F 1 2 . 0/8G12 . 4/5X . 24  1 2 > 

2/2  F 0«“ A T ( 5X i 'HOUR  r • 13/ 

1 8ul2 • 4 / 

2 r>A.'AL°  *'  .F12.6.5X,  'CONCEM  = ',U2.6> 

3/0  FO«maT('  aRRIVal^  a ' .F12.6.5X,  • DEPARTURES  «'F12,6) 

4?0  F08.f*AT(5(»X.2Fl?,A)  ) 

E'-  ' 


THIS  TkW 
fBOH  COPY 
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PART  II:  USER'S  MANUAL  FOR  APM.SAV 


1.  INTRODUCTION 

The  overall  objective  of  this  project  is  the  development 
of  an  interactive  airport  performance  model,  the  purpose  of 
which  is  to  translate  improvements  in  airport  facilities  and 
airport  operating  procedures  into  increases  in  the  quality  of 
service  or  level  of  service  actually  provided  to  the  public. 

The  program  consists  of  two  major  segments: 

(1)  an  airside  segment  which  measures  delays  for  the 
aircraft  and  passengers  in  terms  of  time  and  dollars, 

(2)  a groundside  segment  which  determines  how  much 
facility  is  required  for  peak  passenger  movements. 

The  model  will  use  as  inputs  airport  characteristics, 
processing  capabilities,  demand  patterns,  traffic  and  weather 
characteristics,  and  will  provide  a measure  of  the  change  in 
airport  capabilities  as  reflected  by  delay  time  (passengers  and 
aircraft) , delay  costs  (passengers  and  airlines) , serviceable  pas- 
senger demand  (for  constant  delay)  and  passenger  terminal  congestion. 

TYPES  OF  TERMINALS: 

Computer  Devices  (CDI's),  Execuports,  Digital  DECwriters, 
Hazeltine  and  Texas  Instrument,  etc.  In  effect,  those  computer 
terminals  that  are  capable  of  transmitting  at  110,  300,  or  1200 
baud  rates . 

TELEPHONE  NUMBERS  AND  BAUD  RATES: 

110  BAUD  AND  TTY  NUMBER 

TEL.  # TTY  # TEL.  # TTY  # 

2984  6 2986  11 

7575"  10  2987  12 
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300  BAUD  AND  TTY  * 


TEL.  * 

TTY  # 

TEL.  # 

TTY  # 

2882 

41 

2949 

27 

2883 

42 

2950 

26 

2885 

54 

2951 

24 

2886 

44 

2952 

21 

2888 

43 

2953 

20 

2929 

50 

2954 

16 

2930 

51 

2955 

13 

2931 

52 

2956 

17 

2932 

53 

2957 

1 

2934 

55 

2958 

5 

2935 

56 

2959 

22 

2960 

23 

2961 

14 

2962 

25 

2969 

7 

2970 

57 

1200  BAUD  AND 

TTY  # 

TEL.  * 

TTY  # 

2869 

40 

2916 

46 

2917 

47 

The  underlined 

telephone  numbers  (2984, 

2882  and  2949) 

are  on  a rotary  system. 

By  dialing 

2984,  the  user  will  have  all 

of  the  110  baud  numbers  to  use.  On  the  300  baud  line,  by  dialing 
an  underlined  telephone  number  (2882  or  2949),  the  user  will 


have  access  to  those  numbers  in  the  same  column. 


2 


LOGIN 


LOGIN  is  the  system  program  used  to  gain  access  to  the 
DECsystem-10.  The  program  determines  by  appropriate  dialogue 
with  the  user  who  he  is  and  whether  or  not  he  is  currently 
authorized  to  use  the  system.  If  so,  it  establishes  the  user's 
initial  profile,  informs  him  of  any  messages  of  the  day,  whether 
it  is  his  first  logon  of  the  day,  and  reports  any  errors  detected 
on  his  disk  files. 

Upon  dialing  any  of  the  appropiate  telephone  numbers, 
the  word  LOG  is  typed,  followed  by  a^  (carriage  return,  RETURN 
key).  After  each  of  the  user's  responses,  the  carriage  return 
or  RETURN  key  is  to  be  activated.  This  indicates  the  special 
command  has  been  terminated. 

When  the  symbol  # is  displayed-insert  the  user's  number. 

NAME:  is  displayed-insert  the  user's  name,  which 

will  not  be  displayed. 

PASSWORD:  is  displayed-insert  the  user's  password 

which  also  will  not  be  displayed. 

After  correctly  following  this  procedure,  the  messages 

of  the  day,  if  any,  are  displayed  and  the  program  is  now  ready 

to  run. 

If  an  incorrect  NUMBER,  NAME  or  password  is  entered, 
the  same  sequence  (except  LOG)  will  be  recycled  by  the  system. 
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The  line 


? LGNIET  INVALID  ENTRY-TRY  AGAIN 

will  be  printed  a maximum  of  four  (4)  times.  Then,  if  an 
incorrect  response  is  still  being  entered,  the  system  will 
print  KJOB.  The  user  should  check  his  NUMBER,  NAME  and  PASSWORD. 
He  must  then  re-enter  and  the  process  will  begin  again. 
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RUNNING  THE  PROGRAM  (AFTER  LOGIN) 


The  following  paragraphs  are  an  explanation  of,  and 
options  to  Program  APM.  After  each  instruction  or  message, 
the  RETURN  key  must  be  activated.  To  distinguish  between  the 
user  commands  and  the  program  responses,  user  entries  will  be 
underlined  and  program  responses  will  not.  The  program  will 
be  loaded  and  made  ready  for  the  user. 


‘ FiF'M 

4 

;J&tlNNING  Kfi-10  CODE  ON  A KI-10 

” \ AIRPORT  PERFORMANCE  MODEL  &>■ 

fFAA/ASP-136  UERSION  9/76)  jgi 

PLEASE  TYPE  3-LETTEP  IDENTIFIER  FOR  AIRPORT  OF  INTEREST 
i FOLLOW  ALL  YOUR  REPLIES  BY  OR? CARRIAGE  RETURN)  I > 

DTW  **' 


If  a combination  of  letters  other  than  those  included  in  the 
list  of  airports  is  used,  the  message 


INCORRECT  ENTRY. PLEASE  TRY  AGAIN 
is  typed  by  the  program. 

Check  the  authorized  airport  codes. 


'rol'OLl  WISH  AN  ANNUAL  OR 
TYPE  A OR  M OR  S OR  P 


MULTIPLE  OR  SCALING  OR  PROCESSING  RATE  ANALN 


The  user  enters  his  choice.  By  entering  M (multiple  analysis) 
the  user  can  compare  differences  or  similarities  in  particular 
parameters  for  a series  of  years.  An  annual  analysis.  A,  is 
selected  when  the  user  desires  one  particular  year.  A scaling 
analysis,  S,  is  for  when  the  user  wishes  to  see  the  effect  of 
the  processing  rate  upon  the  T-table.  If  P is  selected,  the 


2-5 


user  will  be  able  to  enter  a scaling  factor  and  see  what  effect 
that  scaling  factor  has  upon  the  processing  rate. 


TO  COMPUTE  GATE  DELAYS: 

TYPE  THE  # OF  SERUICE  GATES:  30 

APR I UAL  SERUICE  TIME  IN  MINUTES:  £0 

DEPARTURE  SERUICE  TIME  IN  MINUTES:  SO. 

THRU-FLIGHT  SERUICE  TIME  IN  MINUTES:  15. 

The  responses  that  the  user  enters  above  become  the 
input  parameters  to  the  Gate  Delay  Module. 


***  RUERPGE  TRAFFIC  OCLUME  FOR  PTW  (1972-1973)*** 


CF'EF  AT  IONS.' BAY 

AIR  CARRIER  + COMMUTEF-AIR  TAXI  fRC+CRT)  421 
GENERAL  AU I AT I CM  + MILITARY  (GA+MIL)  316 


TuTAL  3 1 


GF'ERAT  IONS--VR 
153843 
115697 

269540 


EG  YOL:  WISH  TO  modify  THE  AROUE  TOTAL  DEMANDS  ? 
TYPE  YES  OR  ME- 
MO 


NO 

Since  the  user  had  keyed  in  NO,  the  program  will  go  to  the  next 
section . 

If  the  user  had  keyed  in  YES  as  his  response  (annual  analysis), 
the  program  types  the  following  messages  and  awaits  the  user's 
responses . 

fVPr  IT-”  1 r-  : r • >-.M«  i r-0  *•  >r  ; -i  />■  t,  ->«  . , 

>T  r t r • ■ i ih  - ,7  r-M  . • . *.  r • t 
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(The  user  has  replied  with  200000  and  110000  respectively) . 

The  program  then  prints  the  following  message  for  the 
user  so  that  he  may  again  see  the  numbers  he  has  entered  and 
make  any  changes,  if  necessary. 

• • t 

AC+CAT  = 200000 

GS+MIL  = 110000 

TOTAL.  = 310000 


***  AVERAGE  TRAFFIC  VOLUME  FOR  I'TW  (1972-1973)*** 


0PERATI0NS/DAY 

AIR  CARRIER  + COMMUTER/AIR  TAXI  (AC+CAT)  ‘■'47 
GENERAL  AVIATION  + MILITARY  (GA+MIL)  301 


OPERATIONS/^: 

200000 

110000 


TOTAL  S*B 


31.0000 


00  YOU  WISH  TO  MODIFY  THE  ABOVE  TOTAL  DEMANDS  7 
TYPE  YES  OR  NO 


If  the  user  replies  YES,  the  program  will  recycle. 
If  the  user  replies  NOy  the  program  continues. 


NO 

Since  the  user  had  keyed  in  NO,  the  program  will  go  to  the 
next  section. 

If  the  user  selects  M for  a multiple  year  analysis,  the  following 
section  will  be  entered. 

MttTlFL*  ANALYSIS  . 

j ’TAR*  1 } 
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The  user  enters  1978,  the  starting  year  of  his  multi-year  analysis. 

WITH  OF  WITHOUT  INVESTMENT  ? 

TYPE  W OF.  WO:  WO 

A data  file  will  now  be  open  for  the  user.  The  file  will  be  in 
the  format: 

XXXWO.DAT  or  XXXWI.DAT 

The  XXX  represents  the  three  leter  airport  code.  The  WO  represents 
"without  investment"  and  the  WI  represents  "with  investment." 

The  delay  cost  figures  will  be  written  on  this  file. 

I'  THIS  THE  INITIPLIZfiTION  PUN  ? 

YES  OR  NO:  YES 

This  reply  by  the  user  indicates  whether  or  not  this  is  the  first 
run  of  a multi-year  analysis. 

THE  # OP  EPYS  OF  PUNS  USED  FOR  RNNURLIZRT  ION  IS  PRESENTLY  54. 

10  SOU  WISH  TO  CHfiNGE  IT?  I. YES  OP  NO) 

NO 

In  this  case,  54  is  taken  from  the  header  file.  For 
various  reasons,  (checkout,  etc.)  the  user  may  want  a lesser 
number  of  days  or  runs  to  simulate  a year. 

If  the  user  had  keyed  in  YES  as  his  response,  the 
program  would  have  typed  the  following  message  and  waited  for 
the  user's  reply. 

:EW  NUMBER:  45 
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»»»  mix  OF  AIRCRAFT  TYPES  AT  DTW  1975  ### 


H4W  HEflUY  JETS  - 4 ENGINE  HIDE  BODY 

H3  HERUY  JETS  - 3 ENGINE 

H4S  HERUY  JETS  - 4 ENGINE  STRNDRRD  BODY 

L3  LRRGE  JETS  - 3 ENGINE 

L£  LRRGE  JETS  - £ ENGINE 

LF'  LRRGE  PROP  + TURBOPROP 

S SMRLL  ( 1 £500  LBS.  OR  LESS) 

0 OTHER 


PERCENT 
1.8 
3.6 
14. £ 
££.6 
14.9 
13.5 
£9.4 
0.0 


DO  YOU  WISH  TO  *** 

l:  USE  FORECASTED  MIX 
£:  INSERT  R NEW  MIX 
tCITHER 
TYPE  1,  £ OR  3 


sjf 


(Y 


If  the  user  had  selected  M,  for  multi-year  analysis, 
the  following  message  would  have  appeared. 


TYPE  T-TABLE  SCALING  FACTOR 
•10.  IF  YOU  WISH  PROGRAM  Tu  uOMPUTE  IT). 


The  user  enters  his  choice  and  the  program  continues. 

If  S (for  scaling  analysis)  is  selected,  the  program 
prints  the  following  message  and  awaits  the  user's  reply. 

TYPE  PROCESSING  PATE  FOR  COMPUTING  SCALE  FACTOR  : 1£0 


Here,  the  user  has  entered  120.  The  program  will  then  print 
the  T-table  scaling  factor  for  the  user;  then  it  will  exit. 


-'ABLE  SCALING  FACTOR  = 0.£0853£8E+01 

-PU  TIME:  0.5^  ELAPSED  TIME:  1:11.05 
EXECUTION  ERRORS  DETECTED 

IT 
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If  P (for  a processing  rate  analysis)  is  selected, 


the  program  prints  the  following  message  and  awaits  the 
user's  reply. 

*|.PE  SCALING  FACTOR  FOR  COMPUTING  PROCESSING  RATE:  £.5 

After  the  user  entered  (in  this  case  2.5),  the 
program  will  print  the  scaled  processing  rate  for  his  entry; 
then  the  program  will  exit. 


crPLEI'  PROCESSING  RATE  = 144 

" TIME:  0.53  ELAPSED  TIME:  l:15.7£ 

EXECUTION  ERRORS  DETECTED 

_.<,IT 

With  either  the  annual  analysis  or  the  multiple  analysis,  the 
program  continues  with  the  following  section. 


***  MIX  OF  AIRCRAFT  TYPES  AT  DTW  1975  *#* 


TYPE  PERCENT’ 


H4W 

HEAVY  JETS 

- 

4 ENGINE  WIDE  BODY 

1.8 

H3 

HEAVY  JETS 

- 

3 ENGINE 

7.6 

H4S 

HEAVY  JETS 

- 

4 ENGINE  STANDARD  BODY 

14.2 

L3 

LARGE  JETS 

- 

3 ENGINE 

22.6 

L2 

LARGE  JETS 

- 

2 ENGINE 

14,9 

LP 

LARGE  PROP 

+ 

TURBOPROP 

1 3 , 5 

S 

SMALL  (12500 

LBS.  OR  LESS ) 

29  ■ 4 

0 

OTHER 

0.0 

***  no  YOU  WISH  TO  *** 

1?  USE  FORECASTED  MIX 
2 INSERT  A NEW  MIX 
7?  NEITHER 
TYPE  1 • 2 OR  3 

If  the  user  enters  the  number  1,  the  following 
message  is  typed  by  the  program. 


TYPE  IN  ONE  OF  THE  FOU  0 WING  YEARS 
for  THE  FAA  PROJECTED  MIX  TO  »E  USED ? 

I op  a (985  i oo<>  j 90s  2000 

The  user  now  selects  a year,  1995  for  example,  and  the  following 
message  is  printed. 

PROJECTED  MIX  OF  AIRCRAFT  TYPES  AT  D P-N  1995 


TYPE 

PERCENT 

HEAVY  JETS 

7 

, 0 

NT 

HEAVY 

JETS 

- 7 ENGINE 

29 

. 0 

1.4 

LARGE 

JFTS 

- 4 ENGINE 

0 

.0 

1.7 

LARGE 

JETS 

- 3 ENGINE 

79 

,0 

1.7 

LARGE 

JETS 

- 2 ENGINE 

33 

.0 

I..P 

LARGE 

PROP 

+ TURBOPROP 

A 

■ 0 

q 

SMALL  * 

1250C 

) IBS.  OR  LESS) 

A 

.0 

0 

OTHER 

A 

A 

***  DO  YRI I MTSW  TO  * + * 

t?  USE  FORECASTED  Mix 
2!  INSERT  A NEW  MIX 
SI  NEITHER 
TYPE  1-  .»  OR  3 
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If  the  user  enters  2,  to  insert  his  own  aircraft 
mix,  the  program  prints  a heading  and  waits  for  the  user  to 
enter  his  desired  percentage  of  heavy  jets,  e.g.,  2.1.  This 
will  be  repeated  for  the  seven  other  categories  of  aircraft. 


MIX  OF  AIRCRAFT  TYPE  AT  HTUI 

TYPE  PERCENT 

H4  HEAVY  JETS  4 - ENGINE  2jJ 

H3  HEAVY  JET  - 3 ENGINE  4^2 

L4  LARGE  JETS  - 4 ENGINE  11 .2 

L3  LARGE  JETS  - 3 ENGINE  21.6 

L2  LARGE  JETS  - 2 ENGINE.  17  >4 

LP  LARGE  PROP  +TURBOPROF'  12^3 

S SMALL  (12500  LBS.  OR  LESS  I 30.7 

0 OTHER  jKO 


The  program  then  prints  the  aircraft  types  and  percents 
which  the  user  has  just  entered  so  that  he  may  examine  his 
selections  and  make  the  necessary  corrections,  if  any.  By  typing 
2,  the  user  causes  the  program  to  re-cycle  and  allow  the  user 
to  make  his  changes. 

By  typing  2*  the  user's  selections  are  used  and  the 
program  will  continue.  In  the  example  below,  the  user  has 
typed  3>  therefore  the  program  continues. 
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AD-A062  881 


UNCLASSIFIED 


TRANSPORTATION  SYSTEMS  CENTER  CAMBRIDGE  MASS  F/G  1/5 

THE  AIRPORT  PERFORMANCE  MODEL.  VOLUME  II.  USER'S  MANUAL  AND  PRO--ETC(U) 
OCT  78  J 8ELLANT0NI 


TSC-FAA-28-21.2 


FAA-ASP-78-10.? 


NL 


*** 

MIX 

OF  AIRCRAFT 

TYPES  AT 

DTW  1975  *** 

TYPE 

PERCENT 

H4U 

HEAVY 

JETS 

- 

4 

ENGINE  WIDE 

BODY 

2.1 

> 

H3 

HEAVY 

JETS 

- 

3 

ENGINE 

4.2 

H4S 

HEAVY 

JETS 

- 

4 

ENGINE  STANDARD  BODY 

11.7 

L3 

LARGE 

JETS 

- 

3 

ENGINE 

21.6 

• 

L2 

LARGE 

JETS 

- 

2 

ENGINE 

17.4 

LP 

LARGE 

PROP 

+ 

TURBOPROP 

12.3 

S 

SMALL 

<12500 

LBS.  OR  LESS) 

30.7 

0 

OTHER 

0.0 

***  no  YOU  WISH  TO  *** 

It  USE  FORECASTED  MIX 
2t  INSERT  A NEW  MIX 
3J  NEITHER 
TYPE  lr  2 OR  3 
3 


THIS  PACKS  IS  BIST  QUALITY  PRACTICABLE 
IRON  COPY  IQJPfl  


For  an  annual  analysis  the  program  next  prints 


***  MAY  achtfurri  p;  PPOCESOTRfs  PftTP.  A1'  «th 


WEATHER 

LOWER  LTMTTg 

OPERATION? 

CATEGORY 

CL NO  FT/VIS  NT 

PEP  HOUR 

VFR 

1500/3 

75 

IFR 

0/0 

75 

no  you  wtoh 

4 « r\r-.rs  /1 

TO  HOniFY  above 

in 

1 ? 0P9/HR 
2 * PANCAP 
3*  NEITHER  -f 
TYPE  IN  t »2  OP  3 


r n • ' r < i /•>  i f>j  r 

PAMCAP 

ar> . 

'5711  <»o , 


If  the  user  types  in  the  number  1,  the  program  waits 
for  the  user  to  change  the  number  of  VFR  operations  per  hour 
and  the  number  of  IFR  operations  per  hour.  The  program  then 
calculates  the  equivalent  PANCAP  and  prints  out  the  values 
so  the  user  may  examine  his  input  values.  If  the  user  is 
satisfied  with  his  input,  as  in  the  following  example,  he  types 
3_,  and  the  program  continues.  If  he  types  1 again,  the  program 
will  again  wait  while  he  enters  values  for  VFR  and  IFR  operations. 


***  MAX  ACHTWAHE  PPOCEScTNr!  PATE  AT  T'“u  *** 


WFATHER 

r-ATFAnPY 

VFP 


TFP 


LOWER  L.TH1TS 
CL  NG  FT/IJTC,  M l 


OPEPat  rn\'s 
PFP  Mill  IR 

1 OA 


rr-in  i;acfwt 

P AMPAF- 


71  .!•  ■ /l 


50 

I S'-  J'7'7 

***  U,.>y  ACHfEVAPI.'1  pp'if'FFSiiMP  PAT»r  AT  r«TW  *** 


WEATHFP 

CATFpnPY 


LOWFR  LJrllT? 
ri  no  e i /ii  t r m t 


MFR  1 500/7 

TFP  0 /0 

jKi  vriM  (.itch  rn  MOprrv  /•  nnui" 

1 t OPV/HR 
2?  RAwr-AP 
•3  * NFjTHFR  ? 

TYPE  TN  1 PR  ? 


nr- r PATTON? 

mc’C  i-inin:- 

1 r\r- 


EOUTL'A*.  :“mt 
RAMCAP 

nn  ‘ -i  , 

1 5547T 
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If  the  user  types  in  the  number  2,  the  program  will 
print  a heading  and  then  wait  while  he  enters  the  equivalent 
pancap  for  VFR  operations.  The  program  will  then  calculate 
the  number  of  operations  per  hour  based  on  the  pancap  entered 
by  the  user.  The  program  does  the  same  thing  for  IFR  operations. 
Next,  the  user  is  given  a chance  to  examine  what  he  has  entered 
because  the  program  prints  out  what  he  has  just  entered. 

In  the  example  below,  the  user  has  entered  2,  and  the 
program  will  continue. 


VFR 


***  MAX  ACHIEVABLE  PROCESSING  RATE  AT  UTW  *** 


EQUIVALENT 

PANCAP 

310364. 


OPERATIONS 
PER  HOUR 


I PR 


155432. 


99 


WEATHER 
L A I E G u ' v i 


V9 

#**  MAX  ACHIEVABLE  PROCESSING  RATE  AT  IUW  *## 


LOWER  i.  .EMITS 
CL NO  Pi, VIS  M3 


VFR  ! 500/3 

I PR  j/0 

00  TOO  WISH  TO  MuDIr * ABOvfc. 

2.  p f.MLAP 
a Ncl  I HE:.  ? 

I Y i-’P  1 r*.  j >■  2 1 IK  3 


OPERA! IONS 
PER  HOUR 

99 

49 


EQUIVALENT 

PANCAP 

303040 . 
15246/. 
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. 


In  smother  option  of  the  DAILY  analysis,  the  user 
is  given  a weather  profile  which  he  may  change  if  he  so  desires. 

**#  ASSUMED  HOURLY  WEATHER  PROFILE  AT  DTW  *** 
A-CAT  A B-CAT  B 0=CAT  0 1=CAT  1 2=CAT  2 3=CAT  3 
< SEE  USER  MANUAL  FOR  DEFINITIONS) 


HOUR 

LOCAL 

TIME 

WEATHER 

1 

oo:oo 

-01500 

A 

oi : oo- 

-02500 

A 

3 

02500- 

-03500 

A 

4 

03500- 

-04500 

A 

5 

04  5 00- 

-05500 

A 

6 

OS  500- 

-06500 

A 

7 

06500- 

-07500 

A 

8 

07  5 00- 

-08500 

A 

9 

OS  500- 

-09500 

A 

10 

09500- 

-10500 

A 

11 

10500- 

11500 

A 

12 

11500- 

-12500 

A 

13 

12500- 

-13500 

A 

14 

13500- 

-14500 

A 

15 

14500- 

15500 

A 

16 

15500- 

-16500 

A 

17 

16500- 

-17500 

A 

18 

17500- 

18500 

A 

19 

10  500 

-19500 

A 

20 

19500- 

-20500 

A 

21 

20500- 

-21500 

A 

22 

21500 

-22500 

A 

23 

22500- 

-23500 

A 

74 

23500- 

-24500 

A 

WISH  TO 

MCJDIFY 

THE  ABOVE 

WEATHER  PROFILES 

OR  NO 

2-16 


w»cno*S» 


WIS  PAGE  is  BEST  QUALITY  FRACT1CABL* 
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PARAMETER 

VALUE 

UNITS 

RADAR  APPROACH 

SPACING  STDS. 

1 

SMALL  BEHIND  HEAVY 

6 

mtl.es 

2 

OTHER 

3 

MILES 

1975  AIRCRAFT 

DIRECT  OPERATING 

COSTS f IN  THE  AIR 

3 

HEAVY  JET  - 

4 ENGINE 

24 . 53 

4 /MIN 

4 

HEAVY  JET  - 

3 ENGINE 

1.7,92 

4/MTN 

5 

LARGE  JET  - 

4 ENGINE 

13.45 

4 /MIN 

6 

LARGE  JET  - 

3 ENGINE 

1.0,47 

4 /MIN 

7 

LARGE  JET  - 

2 ENGINE 

8,74 

4 'MIN 

8 

LARGE  PROP 

4-  TURBOPROP 

1 A ,QA 

4 /MIN 

o 

SMALL (12500 

LB  OR  L ESS  ' 

0 , 38 

4 /MJ  N 

10 

OTHER 

A, 00 

4 /M I N 

1Q75  AIRCRAFT 

DIRECT  OPERATING 

COSTS  - ON  GROUND 

11 

HEAVY  JFT  - 

a ENG INF 

1 7 . 5/ 

12 

HFAVY  JET  - 

7 ENOTWF 

1 7, 3 -:> 

*/Kf  TM 

13 

LARGE  JET  - 

4 ENG  INF 

I'.M  7 

* /m  jki 

14 

LARGE  JFT  - 

7 ENGINE 

0 , 

<fc  /'M  T M 

15 

LAROF  JFT  ~ 

2 ENGINE 

./  . C17 

^ / p*  f Kf 

16 

I..AROF  PROP 

f TURBOPROP 

1 <1  ■ 1 3 

f/MTKI 

17 

SNA'  ! 

o , 72 

<1:  /MTM 

18 

OTHER 

o,00 

<fc/MT  K« 

1 P" 

'5  AIRCRAFT 

pm  LIJTJON  FMjqsTON  i fvci  «.  in 

Tlf  ATK' 

1° 

HEAVY  JET  - 

a engine 

320 #0^ 

l pq  / M (v 

20 

HFAVY  JFT  - 

7 ENGINE 

1 XA , A A 

l pc' /M P 

21 

LARGE  JFT  - 

A ENGINE 

PA  , AA 

1 pq  /Mic 

OT 

1 ApOF  ITT  - 

7 ENGINE 

• A , A A 

» P'-i  /Ml* 

77 

LARGE  JFT  - 

7 ENGINE 

:>  A , A A 

i pc;  /up 

24 

| A RAF  PROP 

•f  TURRnppnc 

1 A , AA 

I pc  /M»r.. 

25 

SMALL 

•=: , AA 

i PC  /Miv 

26 

OTHER 

I * 00 

LBS/M1* 

VALUE  of  PA'-jcjpwqrp  TIME 

27 

A'P  CARRIER 

■ AND  com mu ter /a Tc 

:•  fOYT  i'.>#50 

•L  /HR 

28 

GFNERAL  aviation 

12#  50 

4 /HP 

7° 

MILITARY 

i.  2 , 5'N 

T /UP 

NUMBER  Or 


30  AIR  CARP  rep  AMP  COMMUTER /AIR  t^yt 

31  GENERA1  AVIATION  AMri  nti  I t ary 


OATES 


FOR  WORK  TRIPS 


MODE 

# 


IBIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
TOOM  OOP!  BURNISHED  TO  DDO  

VEHICLE 

OCCUPANCY 


49  1 DRIVE, PARK  1.1.0 

50  2 CURB  PU+D  1.10 

90  3 S.T.PK,  CURB  PU+D  1,10 

51  4 TAXI  1,10 

52  5 BUS  20.00 

91  6 LIMO  1,10 

92  7 RENT  CAR  1,10 

53  8 NON-HIGHWAY  c, 00 

54  HIGHWAY  PEAKING  FACTOR  1.50 

(AVERAGE  FLOW  PER  MINUTF  DURING 

20  MIN  PFAK  DIVIDED  BY  AVFRAGE  HOW  PER  MINUTE 
FOR  THE  ENTIRF  HOUR  ) 

55  CURB  DESIGN  PEAKING  FACTOR  1.50 


VEHICLE  CURB 

MOPE  SLOT  LFNOHT ( FT  ' 

* 


56 

1 

DRIVE, PARK 

0.00 

57 

j> 

CURB, PU+D 

18.00 

58 

3 

S > T • PK , CURB  PU+D 

18,00 

59 

4 

TAXI 

18.00 

60 

5 

PUS 

45 . OA 

61 

6 

LIMO 

25,00 

62 

7 

RFNT  CAP 

0 , 00 

63 

8 

NON-HIGHWAY 

0,00 

WORK  FORCE  AIRPORT  ARRIVAL /DEPARTURE  Ri  G^PTBUTton 

•/  OF  WORKFORCE 


TIME  OF  DAY 

1 WPHIIND 

OUT BOUND 

64 

00100- 

r,  i 

AO 

A 

A/)A 

A 

OTA 

65 

0.1  100- 

r o 

AO 

O 

000 

»•) 

01.0 

66 

0.9-0O- 

r 1 

00 

o 

AAA 

A 

oto 

67 

03100- 

OA 

oo 

o 

010 

O 

01.0 

68 

04*00- 

05 

00 

o 

♦ 010 

A 

000 

69 

051QA- 

06 

AA 

o 

> 0*o 

A 

01  o 

70 

06 : oo- 

07 

OA 

0 

, 2<50 

A 

o ! 0 

71 

07100- 

Or] 

OA 

o 

10  A 

A 

oso 

72 

08 1 0 a — 

09 

OA 

o 

. AAA 

A 

A TO 

73 

A9  * 00- 

JO 

AA 

o 

ATA 

A 

AT  A 

74 

1.0100- 

1.1. 

OA 

0 

,030 

A 

AT  A 

75 

11100- 

I T 

00 

o 

01.0 

A 

Ad  A 

76 

1.2100- 

1 T 

00 

0 

ouo 

A 

o?o 

77 

17100- 

1* 

OA 

o 

AAA 

A 

0)0 

78 

1.41  AO- 

1 "I 

OA 

o 

AO  A 

A 

A 7 A 

79 

1 5 1 00- 

1 / 

AA 

A 

A*T  A 

A 

A 7 A 

80 

16100- 

1 *7 

AA 

A 

01.0 

A 

■?sa 

81 

1 7 1 OA - 

1.R 

OA 

A 

A 1 A 

A 

AT  A 

82 

18100- 

1 9 

A 0 

A 

A "A 

o 

ASA 

87 

1 9 • 00 • 

?0 

00 

A 

A ">A 

0 

A 4 A 

84 

70100- 

?1 

00 

A 

AT  A 

o 

A 40 

85 

2 1. 1 CO- 

29 

00 

A 

OTA 

A 

0 40 

86 

22  100- 

tt 

OA 

A 

0*0 

2-18 

A 

ASA 

87 

23100- 

7.  A 

00 

A 

*0to 

A 

090 

is  THERE  A GATE  WAITING  AREA  ? TYPE  YES  OR  NO 

The  program  now  waits  for  the  user  to  type  his  response,  YES 
or  NO 


I 


ARE  GATE  HOLD  PROCEDURES  IN  EFFECT  ? 

TYPE  YES  OR  NO 

Again,  the  program  awaits  the  user’s  response.  For  our  example, 
the  user  replied  YES  to  both  of  the  above  questions. 


SEATING  CAPACITY »CARRIER+AIR  TAX I /COMMUTER 


AIRCRAFT  TYPE  * H4W  H3W  H4S  L3  L2  LP  S/0 

32  REV  SEATS  AVAIL.  346.0  299.0  157,4  115.7  101.1  49.3  6.0 

ACCESS/EGRESS  MODE  CHARACTERISTICS  FOR  ENPLANING  PASSENGERS 


MODE 

WELL  WISHERS 

VEHICLE 

HOURS  OF  CURB 

* 

PER  PASSENGER 

OCCUPANCY 

DWELL  TIME 

33 

1 

PARK 

0.960 

1.790 

0.000 

34 

9 

CURB  PU+D 

2.100 

2.500 

0.062 

35 

3 

S.T.PKn  CURB 

PU+D  2.100 

2.500 

0.062 

36 

4 

TAXI 

0.000 

1.400 

0.033 

37 

5 

BUS 

0 . 290 

20 . 000 

0.066 

38 

6 

L.IM0 

0 . 290 

7 . 000 

0.083 

39 

7 

RENT  CAR 

0.000 

1 . 790 

0.000 

40 

8 

NON-HIGHWAY 

0 . 290 

0.000 

0.000 

FOR 

DEPLAN I NG  PASSENGERS 

MODE 

GREETERS 

VEHICLE 

HOURS  OF  CURB 

• 

PER  PASSENGER 

OCCUPANCY 

DWELL  TIME 

41 

i 

PARK 

1.030 

1.790 

0.000 

42 

o 

CURB  PU+D 

2 . 060 

2.300 

0 . 062 

43 

3 

S.T.PK,  CURB 

PU+D  2 . 060 

2.300 

0 . 062 

44 

4 

TAXI 

0.000 

1.500 

0.033 

45 

5 

BUS 

0.140 

20.000 

0.066 

46 

6 

LI  MO 

0.140 

8.000 

0 . 083 

47 

7 

RENT  CAR 

0.000 

1.400 

0.000 

48 

8 

NON-HIGHWAY 

0.140 

0.000 

0.000 

3HXS  PAGE  IS  BEST  QUALITY  FRACTICABL1 
raotf  COPY  FURBISHED  TO  - 
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SHIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
raQM  COPY  FURtiLSHED  TO  LDC ^ 


I ! 

J 


88  TOTAL  LABOR  FORCE 

?«S7 

\ 

i 

EMPLOYEE  MODE  SPLIT 

INBOUND 

OUTBOUND 

93  1 PARK 

0,90 

0.90 

94  2 CURB  PIJ+B 

0,00 

A,  00 

95  3 S.T.PKf  CURB  PU+D 

0.00 

0 , 00 

• 

96  4 TAXI 

0,00 

0,00 

97  5 BUS 

0.10 

0 - 10 

98  6 LI MO 

0.00 

0 00 

99  7 RENT  CAR 

0,00 

0,00 

100  8 NON-HIGHWAY 

0 . 00 

0,00 

I 

PASSENGER  CAR  VEHICLE  EQUIVALENCY 

101  1 PARK 

1,00 

102  2 CURB  PU+D 

1 . 00 

103  3 S.T.PK.  CURB  PU+D 

:i  ,oo 

104  4 TAXI 

1,00 

105  5 BUS 

2 '50 

106  6 L.IMO 

:i  50 

• 

107  7 RENT  CAR 

t , 00 

108  8 NON-HIGHWAY 

I rtn 

109  LANE  CAPACITY  <VEHICl.ES/NOHR) 

1 .900  00 

I 

The  parameter  list  is  now  complete  and  the  following  message 
will  be  printed  by  the  program. 

DO  YOU  WISH  TO  MODIFY  ANY  OF  THF  ABOVE  PARAMETERS  v 
TYPE  YES  OR  NO 


The  user  will  then  type  his  response. 

If  the  user  enters  YES: 

(1)  The  program  asks  the  user  for  the  number  of  the 
parameter  that  he  is  changing. 

(2)  Depending  upon  the  number  of  entries  in  that 
particular  parameter  number  - 1,  2,  or  3 - the 
program  asks  the  user  to  enter  the  new  value  for 
that  particular  parameter  section. 
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?V 

4 


»\ 
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i ' 
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C3J  Tha  program  will  ask  tha  waar  if  ha  wishes  to 

modify  any  additional  parameter*,.  if  tha  user  £i 
answers  JB» . tha  program  will  racycla  'With  if.  y- 
If  tha  user  answers  NO,  the  program  will  continue; 

(4)  Currently,  the  program  will  also  continue  if  the 

user  enters  a parameter  Itss  than  or  greater, than  88. 


NUMBER  01-  PARAMETER  - 
N....U  VAi  ut  ( hi ) — 0 » 30 

no  YOU  WISH  TO  MODIFY  ANY  ADDITIONAL.  PARAMETERS  ? 

TYI-'Z  YES  OR  NO 

Y£0 

NZZDZR  t)i-:  PaRAME  I r.'R  34 
NEW  OAi.  ...  .3)  - 0.5 

A t'1  .’A-  • 

NI;V  vi-ii,..Lii:.  0 ) 

t~  u vn  .ooi r 


•<Y  I"  TONAL  “ ARAMET eft  3 ? 


YE: 


- v u 


If  the  user  enters  no,  no  changes  to  any  of  the  parameters  take 
place . 

< — ; 

DO  YOU  WANT  TO  SEE  GROUNDSIDE  STATISTICS  - YES  OR  NO9  ■( 


The  groundside  service  model  of  the  program  determines 
which  facilities  ^associated  within  and  around  the  airport 
terminal  area  will  need  what  kind  and  type  of  space,  based  upon 
the  number  of  arriving,  departing  and  transferring  passengers. 
It  also  determines  their  characteristics,  modes  of  access,  and 
terminal  facilities. - 


IMS  FAGS  IS  BUST  QUALITY  PBACTlCABliB 

mm  OQPY  JUM» sum  TQ  pnq  ^ 
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If  the  user  response  is  NO,  the  groundside  service 
area  of  the  program  is  avoided  and  no  statistics  will  be  printed. 

If  the  user  response  is  YES,  the  program  enters  the 
groundside  portion  and  computes  the  peak  facility  requirements 
needed  for  the  various  facilities. 

Messages  related  to  the  groundside  service  module 
will  be  explained  later  when  they  occur  during  the  normal  program 
flow. 

The  program  will  now  generate  a summary  of  printed 
output  for  the  runway  delay  module  and  the  groundside  service 
module,  if  desired,  in  the  form  of  a print  file.  These  print 
files  are  named  in  a certain  convention,  the  same  as  a person 
is  named.  The  first,  the  file  name,  is  the  actual  name  of  the 
file  and  the  last  name,  the  filename  extension,  i.  dicates  with 
which  group  the  file  is  associated.  The  filename  and  the  file- 
name extension  are  separated  by  a period.  In  the  case  of  the 
print  file  generated  by  the  program,  the  computer  will  assign 
a file  name,  and  the  extension  will  always  be  LPT  (e.g.  QCLSQ. 
LPT)  . 
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4. 


RUNWAY  DELAY  MODULE 


To  the  following  series  of  questions  from  the  program, 
the  user  will  respond  by  typing  YES  or  NO.  In  the  following 
example,  the  user  answers  YES  to  all  the  questions. 

DO  YOU  WISH  AN  HOURLY  BREAKDOWN  OF  TAKEOFFr  DELAYS  ? 

YES 

DO  YOU  WISH  AN  HOURLY  BREAKDOWN  OF  LANDING  DELAYS  ? 

YES 

DO  YOU  WISH  AN  HOURLY  BREAKDOWN  OF  GATE  DELAYS  ? 

YES 

DO  YOU  WISH  AN  HOURLY  BREAKDOWN  OF  POLLUTION  ? 

YES 

DO  YOU  WISH  AN  HOURLY  BREAKDOWN  OF  ENERGY  CONSUMPTION  ? 

YES 

For  takeoff,  landing,  and  gate  delays,  the  output 
format  is  the  same.  The  time,  number  of  takeoffs,  landings  or 
aircraft  delayed  at  the  gates,  maximum  number  in  the  queue, 
maximum  delayed,  average  number  delayed,  and  the  total  number 
delayed  are  printed.  For  the  pollutants  emitted,  the  total 
pounds  and  excess  pounds  of  fuel  for  each  hour  are  printed. 
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The  following  is  an  hourly  breakdown  of  landing  delays. 


LANDING  DELAY S 


LOCAL 

MO  OF 

MAX. 

A VR , 

«0. 

MAX. 

AVR. 

TOTAL 

TIME 

land 

IN 

UUEUfc. 

•IN 

ClUEUK 

DELAYED 

DELAY 

MINS 

DELAY 

MINS 

DELAY 

MINS 

oosoo-ol:oo 

3857. 

3 

1233 

3.0 

0.3 

1243.7 

01:00-02:00 

4591  . 

3 

1773 

— 3.1 

0.5 

2254.7 

02:oo-o3:oo 

1288. 

2 

252 

2.2 

0.2 

305.8 

oj:0o-o4:oo 

229, 

0 

0 

0.0 

0.0 

0.0 

04:oo-o5:oo 

587. 

1 

21 

1.1 

0.0 

17.8 

05:0o-o6:oo 

208. 

0 

0 

0.0 

0.0 

0.0 

0b:oo-o7:oo 

5504. 

5 

2700 

5.2 

0.9 

4904.8 

07 : 00-08 : oo 

2718. 

2 

8 80 

1.7 

0.3 

825.3 

08:oo-o9:oouii3. 

7 

7697 

6.8 

1.4 

15358.9 

09:oo-lo:no 

9151. 

7 

6454 

7.1 

1.6 

15008.0 

10:00-11:00 

6982. 

8 

4271 

9.0 

1.7 

11955.1 

1 1:00-12:00 

8810. 

5 

5532 

4.4 

0.9 

7685.4 

12:00-1 3:oo 

8379. 

8 

5980 

8.9 

1.6 

1 3824. b 

I3:oo-i4:yu 

9802. 

5 

6580 

5.8 

1.1 

11181.6 

14:00-15:0011237. 

7 

7910 

7.9 

1 .7 

18543.4 

15:00-16:00 

8663. 

4 

5432 

4.1 

0.8 

6821.8 

16:00-17:001  1891  . 

1 1 

9028 

12.5 

2.3 

27672.9 

17:oo-im:oo 

7682. 

11 

5304 

14.0 

1.9 

14032.1 

1 8:oo-i9:oo 

7774. 

5 

4141 

5.« 

0.7 

5645.7 

l9:oo-29:oo 

1621  . 

2 

204 

1 .7 

o.J 

155,7 

20:00-21 :oo 

5710. 

8 

*979 

8.2 

1.7 

97bo.7 

21 :oo-22:oo 

148. 

1 

88 

0.7 

0.3 

43.5 

22:Oo-23:oo 

3Hbl  . 

6 

1847 

8.1 

1.1 

4313.4 

23:00-24:00  5326. 

1 37130. 

3 

1868 

4.1 

0.4 

1919.9 

174080.8 
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THIS  ?A8E  IS  BEST  QUALITY  FR&CTICABI** 
FROM  COPY  fURHISHEH  TO  DOC  — 


The  following  is  an  hourly  breakdown  of  gate  delays.  Currently, 
this  section  of  the  program  is  under  development. 


GATE 

DELAYS 

LOCAL 

MO  01 

KAX 

AV 

NO 

MAX 

AV 

TOTAL 

TIME 

ARPS 

IN 

IN 

DELAYED 

DELAY 

DELAY 

DELAY 

QUEUE 

ijUEUE 

MINS 

MINS 

MINS 

oo:0o-oi :oo 

— 

oi:oo-02:oo 

...  . .. 

. 

02:00-03x00 

03:oo-o4:oo 

04;oo-oS:oo 

05:00-06:00 

06:oo-o7:oo 

07;oo-o8;oo 

08:00-09:00 

09:oo-iojoo 
10:00-11:00 
1 l:oo-i2:oo 
I2:oo-I3:oo 
13:oo-14:oo 
14:00-15:00 
15:00-16:00 
I6:oo-l7:oo 
l7:oo-l8:oo 
I8:oo-l9:oo 

19:00-20:00 

20:00-21:00 

2l:0o.22:oo 

22:00-23:00 

23:Oo-24:oo 
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*IS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
IBR*  PQPY  PURJiLSm)  K)  DD£ - 


The  following  is  an  hourly  breakdown  of  pollutants  emitted. 


total  pollutants  emitteu 


LOCAL 

TOTAL  TONS 

EXCESS  TONS 

TIME 

HC 

CO 

N 0 ( X ) 

HC 

CO 

00:00-01:00 

28386. 

59377. 

29608. 

4352. 

8019. 

398 

01:00.02:00 

16739. 

37896. 

11752. 

4352. 

8019. 

396 

02:00-03:00 

Hb60. 

17961  . 

4959. 

4352. 

8019. 

39b 

03:00-04:QQ 

8100. 

15346. 

— 57.06. 

- 4352. 

8019. 

398 

o4:oo-ob:oo 

6717. 

13350. 

3034. 

4352. 

8019. 

198 

05:00.06:00 

6062. 

11701  . 

2461  . 

4352. 

8019. 

39b 

06:00.07:00 

2061  1 . 

46447. 

16217. 

4352. 

8019. 

398 

o7:oo-oh:oo 

35922. 

71453. 

43470. 

4352. 

8019. 

398 

08:00-00:00 

52542. 

1 14889. 

54821 . 

4352. 

8019. 

398 

09:oo-lo:oo 

5/7J8. 

121987. 

65724. 

4352. 

8019. 

398 

10:00.11:00 

52428. 

108834. 

61026. 

4352. 

8019. 

19  M 

1 1:00-12:00 

61407. 

128519. 

72129. 

4352. 

8019. 

398 

12:oo-l j:on 

57968. 

121523. 

66905. 

4352. 

8019. 

396 

i3:oo-i4:oo 

52210. 

1 12587. 

56331. 

4352. 

8019. 

19b 

l4:oo-l5:oo 

64367. 

1 37534. 

72275. 

4352. 

8019. 

398 

I5:oo-lo:oo 

65285. 

135719. 

77/14. 

435?. 

80)9. 

39b 

16:00-17100 

66444. 

142333. 

74075. 

4352. 

8019. 

39H 

17:oo-18:oo 

65398. 

1 14438. 

78944. 

4352. 

8019. 

398 

18:00-10:00 

60131. 

124629. 

71360. 

4352. 

8019. 

398 

19:00-20100 

36921  . 

7199b. 

46355. 

4352. 

8019. 

396 

20:00.21 :oo 

2«  449 . 

M564. 

27516. 

4352  . 

8019. 

198 

21: oo-22 : 00 

10840. 

58426. 

39625. 

4352. 

8019. 

398 

22:00-23:00 

24989. 

52654. 

24999. 

4 352  . 

8019. 

198 

23:00-24:00 

23304, 

51591  . 

20082. 

4352. 

8019. 

196 

TOT  A I, 

931642. 

1952759. 

1027087, 

104439. 

192445, 

955  1 
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XBXS  PAQB  XS  BES?  QUALITY  PRACTIflABM 
FROM  OOPY  FUSBISHB)  XOSD.Q 


The  following  is  an  hourly  breakdown  of  energy  consumption. 


ENfc.GR Y CONSUMPTION 


LOCAL 

ARRIVAL 

DEPARTURE 

GAIL. 

TOTAL 

TIME 

TOTAL 

TONS 

TOTAL 

TONS 

DELAY 

TOTAL 

TONS 

TONS 

oo:oo-ol :«o 

109b. 

1 377  . 

58. 

2530. 

01:00-02:00 

1227. 

187. 

58. 

1 472. 

02:00-o3soo 

318. 

145. 

58, 

521 . 

03:00-04:00 

43. 

321. 

58. 

422. 

04:oo-o5:oo 

14b. 

99. 

58. 

304. 

05:00-06:00 

7«. 

95. 

58. 

231. 

0b:oo-o7:oo 

1559. 

37(). 

58. 

1 987. 

07.:  00-06: 00 

684. 

2457. 

58. 

_ J199.. 

os:oo-o9:oo 

3442. 

2171. 

58. 

5672. 

09:00-10:00 

294H  . 

3109. 

58. 

6118. 

10:00-1 i :oo 

2261  . 

3056. 

58. 

5396. 

li:oo-l2:oo 

2520. 

3547. 

58. 

6126. 

12:00-13:00 

2763. 

3264. 

58. 

6086. 

13:00-14:00 

2962, 

2418, 

. 5.8  • 

- 5439. 

1 4: 00-1 b: 00 

3619. 

3270. 

58. 

b947 . 

15:00-16:00 

2474. 

3922. 

58. 

6454. 

I6:oo-t7:oo 

4222. 

3316. 

58. 

7597. 

17:00-18:00 

26  12. 

4129. 

58. 

6800. 

i8:oo-i9:oo 

2196. 

3621  . 

58. 

5876. 

19:00-20:00 

433. 

2755. 

. 5.8  . . 

321 7. 

20:00-21 :oo 

1839. 

1 0b8  , 

58. 

7965. 

2i:oo-22:oo 

55. 

2497. 

58. 

2611. 

22:oo-23:oo 

1180. 

1113. 

58. 

2352. 

23:oo-24:oo 

1 438, 

612. 

56. 

2108. 
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IBIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
. .IRQil  COPY  FURKISHH)  TO  DDC  , 


5.  SUMMARY  OUTPUT 

The  following  is  a summary  output  of  the  groundside 
service  module. 


PEAK  TERMINAL  FACILITY  REQUIREMENTS 


MAIN  MAIN 
LOBBY  LOBBY 
AREA  SEATS 
(SO  FT) 


PAX  PAX  BAG  PA.Q 

Cuu’nter  counter  claim  claim 
AREA  FRONTAGE  AREA  FRONTAGE 
(SC)  FT)  (FI)  (SO  FT)  (FT) 


6S042  3719  7323. 8 183.1  JllSO 

PEAK  HIGHWAY  AND  PARKING  REQUIREMENTS 


890 


SHORT  EMPLOYEE  ENPLANING  DEPLANING  INBOUND  OUTBOUND 

TERM  PARKING  CURB  LENGTH  CURB  LENGTH  ACCESS  ROAD  ACCESS  ROAD 
PARKING  REQUIREMENTS  REQUIREMENTS  PEQU IPFMENTS  REQUIREMENTS 

(SLOTS)  (SLOTS)  (FT)  (FT)  (LANFS)  (LANES) 


199,2  7 b 3 9 , 2 


1021 


99B 


PEAK  HOUR  LONG-TERM  PARKING  SPACE  REQUIREMENTS  OVER  AM) 
ABOVt  SPACES  TAKEN  AT  START  OF  PAY  1 939.2  SPACES 

NET  INCREASE  IN  LUNG-I>RM  PARK  TNG  SPACES  UCCUPIEO  AT  THE 
EML>  OF  THE  DAY  J S3  3.9  SPACES 


TOTAL  AIRPORT  EMRLUYKES  : 190S4.7 


PEAK 

HOUR 

ENPLANtMENTS  : 

JtiHS  .*> 

PAX 

PEAK 

HOUR 

deplanf.men rs  : 

3330,7 

PAX 
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THIS  PAQB  IS  MS!  QUALITY  FRKXTICABL* 

' KRKNt  COPY  FURNISHES  TODDO - 

The  following  is  an  hourly  breakdown  of  peak  terminal  facility 
requirements. 


PEAK  TERMINAL  KACILITY  REQUIREMENTS 


LOCAL 

LOBBY 

PAX 

BAC.ti 

TIX 

TIME 

AREA 

COUNTER 

CLAIM 

COUNTER 

(HOUR) 

(SO  ET) 

(SO  ET) 

ISO  FT) 

<L»  ET) 

oosoo-oj :oo 

2 3078 

2405.8 

1 4805 

60.1 

01:00-02:00 

5924 

528.0  _ 

H3«5 

13.2 

02:00-03:00 

5168 

445.7 

90  30 

11.1 

03:0o-o4:oo 

4880 

414.3 

5915 

10.4 

04:oo-o5:oo 

4358 

357.1 

6825 

8.9 

os:0o-ob:oo 

5 1 b8 

445.7 

6265 

11.1 

0b:oo-o7:oo 

5114 

439.9 

12425 

11.0 

o7:oo-o8;oo 

2b5H8 

2788.8 

9205.. 

— 69.7. 

o«:oo-u9:oo 

2201b 

2288. 4 

20090 

57.2 

09:oo-lo:oo 

57998 

6225.4 

31150 

155.6 

10:00-1 t :oo 

51248 

5486.7 

23975 

137.2 

l l 100-12:00 

60950 

6546.7 

19880 

1 b 3 , 7 

12:oo-i3:oo 

51914 

5559.2 

28945 

139.0 

Ii:oo-i4:oo 

47738 

5102.3 

29225 

127.0 

14:oo-iS:oo 

47198 

5044.1 

28000 

126.1 

l5:oo-ib:oo 

68042 

7323,8 

24710 

183.1 

lb:oo-i7:oo 

43382 

4626.3 

22610 

115.7 

17:oo-i8:oo 

62930 

676  4.9 

21385 

lb9. 1 

ia:oo-io:oo 

50438 

5397.5 

18900 

134,9 

19:00-20:00 

4b7  10 

5207.8 

13090 

130.2  _ 

20:00-21 :oo 

14294 

1 444.9 

14175 

36.1 

21:00-22:00 

42410 

4519.3 

5810 

113.0 

22:oo-23:oo 

3b560 

3679.2 

19775 

97.0 

23:00-24:00 

18884 

1947.0 

24755 

48.7 
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The  following  is  an  hourly  breakdown  of  peak  access  facility 
requirements . 


PEAK  ACCESS  FACILITY  REUU 1 PEMfcMTS 


LOCAL  SHORT  EMPLOYEE 
TIME  TERM  PARK  INI. 
PARK  INC 

(HOUR) (SLOTS) (SLOTS) 


ENPLANING  DEPLANING  INbOUNO  CHITbUUNO 

CURB  LENGTH  CURE  LENGTH  ACCESS  ROAD  ACCESS  ROAD 
REQUIREMEN  TS  RK  0 Li  1 REMEN  TS  REQUi  REMf'NTS  REQUIREMENTS 
(FT)  (FT)  (LANES)  (LANES) 


01100 

60.9 

-227.1 

201 

499 

1 

2 

02100 

32.2 

-302.7 

41 

378 

1 

1 

0 3S  00 

17.  b 

-3/8.4 

bl 

1 8h 

1 

1 

04(00 

b.h 

-378.4 

45 

40 

1 

1 

05(00 

7.2 

-302.7 

37 

54 

1 

1 

Ob  ( 00 

10. S 

155.9 

72 

41 

1 

1 

07(00 

40.1 

4365. 3 

272 

227 

5 

1 

08(00 

71. H 

57b6 , 4 

41  4 

198 

3 

2 

00(00 

108. 0 

bORO.  2 

6/5 

499 

2 

2 

10(00 

199.2 

6080.2 

92* 

957 

3 

i 

11(00 

172.5 

6080.2 

989 

747 

3 

2 

12(00 

179.8 

5612.5 

907 

607 

2 

2 

13(00 

164. b 

5924.3 

841 

893 

2 

2 

14(00 

154.1 

6703.8 

728 

99b 

3 

2 

15(00 

1 84.7 

76  39.2 

1021 

6b  3 

4 

3 

lbSOO 

19b. i 

7015.6 

825 

795 

2 

3 

1 7 ( Oo 

1 b J . 0 

32/4.0 

940 

7 39 

2 

5 

10(00 

lb7.4 

2338.5 

865 

b8  7 

2 

3 

19(00 

1 49.5 

1 R 7 0 . 8 

751 

563 

2 

2 

20(00 

121.5 

1559.0 

492 

391 

2 

2 

21  (Ou 

70.5 

1247.2 

49tf 

364 

2 

2 

22(00 

89.5 

1091 . 3 

537 

98 

2 

1 

23(00 

*3.9 

1091.3 

380 

456 

2 

2 

24(00 

79.2 

0.0 

158 

647 

1 

3 
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XHIS  FAQS  IS  ®SST  QUALITY  PRMJnfiASJd 
fOM  OQPY  FURBISHED  TO  DM  ^ 


The  following  is  an  hourly  breakdown  of  passenger  movements. 


PASSENGER  MOVEMENTS 


LOCAL 

THROUGH- 

TKAKS  URIGIN  TERMIN 

EN- 

DE- 

TiMfc 

EERS 

ATING 

ATING  1 

PLANED 

PLANED 

(HOUR) 

(PAX) 

(PAX)  (PAX) 

(PAX) 

(PAX) 

(PAX) 

00:00-01 :oo 

65.5 

38b. 0 

835.4 

859.1 

1210.7 

1245.1 

01:00-02:00 

62,6 

308.7 

183.3 

820.7 

265.7 

1J.89. 4 

02:00.03:00 

26.5 

155.9 

154.8 

347.1 

224.3 

5 0 3.0 

03:oo-o4:oo 

5.5 

32.3 

143.9 

71.9 

208.5 

104.2 

04:00-o5:oo 

11.6 

69.5 

124.0 

154.8 

179.7 

224.3 

os:oo-ob:oo 

7.9 

46.4 

154.8 

103.2 

2?4 . 3 

149.5 

06:00-07 :oo 

49.5 

291.7 

152.8 

649.2 

221.4 

940.9 

07:00-06:00 

77.7 

163.1 

9b6. 3 

363.1 

1 401..4 

526.3 

oa:oo-ov:oo 

lol.l 

595.5 

7 94.6 

1 325.4 

1151.6 

1920.6 

o9:oo- 10:00 

175.8 

1035.6 

2161.6 

2305.1 

31 32.7 

3340.7 

10:00-1 1:00 

127.3 

749.9 

1905.1 

1669.0 

27hl  .0 

2418.9 

1 1:00.12:00 

99.7 

587.2 

2273.1 

1 307.1 

3294.4 

1894.3 

I2:oo.i3:oo 

161.0 

948.1 

19J0.3 

2110.2 

2797,5 

3058.3 

I3:oo.i4:oo 

162.8 

959.1 

1771.6 

2134.8 

■*567.6 

3093.9 

I4:oo-i5:oo 

154.5 

9 10.1 

1751.4 

2025.6 

2538.3 

2935.7 

is:oo-i6:oo 

132.5 

780.2 

2543.0 

1736.7 

3685.5 

251b. 9 

16:00-17: 00 

116. 1 

b95.6 

1606.4 

1548.3 

2328.0 

2243.9 

17:00-16100 

110.0 

b 4 7 . 8 

2348.6 

1441.8 

3403.7 

2089.6 

I8:0o-i9:oo 

93.1 

548.6 

1874.1 

1221.1 

2716.1 

1769.8 

19:00-20:00 

54.0 

317.9 

1808.3 

707.6 

262Q.7 

1026.5 

20:00-21 100 

ol.2 

360.7 

501.7 

802.9 

727.1 

1163.6 

21:00.22:00 

*».6 

2b  , 2 

1569.2 

62.8 

2274.2 

91.0 

22:00-23100 

99.2 

584.2 

1346,9 

1 3O0.9 

1952.1 

1884.4 

23:oo-24:oo 

129.2 

761.0 

676.0 

169J. 7 

979,8 

2454.7 

TOTAL 

2041.3 

12023.2 

29579.0 

267bl  .4 

42868,1 

38784.6 
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6.  GROUND STDE  SERVICE  MODULE 

When  the  user  selects  the  groundside  statistics  option, 
a uninary  information  for  selected  facilities  within  and  around 
the  terminal  are  printed.  Then,  the  program  prints  the  follow- 
ing questions  to  which  the  user  will  key  in  YES  or  N£.  In  the 
following  example,  the  user  has  keyed  in  the  response  YES . 

. ..  i 

» * 

' ■»  i*ir>h  iN  MOCRLY  ,N  C-'  . £AK  TERMNAL  FACILITY  REuUICEMENTC 

s:,  Wlaii  fiu  t fjlVL  i , . :•  «:\0U  d*  UK  Klr.«C.  AuCCSS  FAC  I . . .1  I Y RLUUJRC MENTS 


> iK<  f'  ;|i  UjCH  h.  ! HOURLY  SF.E.  COUi.'  J"  PASSENGER  NOVEHE.-.'TS  ? 


An  hourly  breakdown  of  peak  terminal  facility  require- 
ments include  the  time,  lobby  area,  passenger  counter  area,  and 
baggage  claim  area  in  square  feet;  and  ticket  counter  area  in 
linear  feet. 

An  hourly  breakdown  of  peak  access  facility  requirements 
include  the  time,  short  term  parking,  and  employee  parking  slots; 
enplaning  and  deplaning  curb  length  requirements  in  feet;  and  the 
number  of  lanes  for  inbound  and  outbound  access  road  requirements. 
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LOGGING  OFF  THE  SYSTEM 


When  leaving  the  DECsystem-10,  the  user  will  be  in  the 
monitor  mode  (a  dot  in  the  first  column)  and  will  key  in  K/F. 
This  saves  the  user’s  disk  files  in  the  state  which  he  desires 
them,  enforces  logged-out  quotas  on  all  disk  file  structures, 
terminates  the  user’s  job  and  returns  the  resources  allocated 
to  the  user  back  to  the  system.  These  resources  include  the 
user's  job  number,  his  allocated  I/O  devices,  and  his  allocated 
core  area.  At  this  time,  too,  all  of  the  user's  print  files 
(those  with  the  extension  LPT)  will  be  printed  automatically. 
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8. 


SAMPLE  OUTPUT 


The  first  page  of  sample  output  is  a summary  of  the 
airside  delay  module.  This  section  is  always  part  of  the 
printed  output.  All  other  sections  of  output  are  under  the 
direct  control  of  the  user. 

Formats  are  the  same  for  both  the  daily  and  annual 

analysis. 
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The  following  is  an  hourly  breakdown  of  takeoff  delays. 


TAKEOFF  DELAYS 


LOCAL 

NO  OF 

MAX 

AV 

NO 

..  max 

__Ay 

TOTAL. 

TIME 

r-os 

IN 

UDEUE 

IN 

QUEUE 

DELAYED 

DELAY 

MINS 

DELAY 

MINS 

DELAY 

MINS 

OOJOO-OlJOO 

3910. 

2 

1359 

1.6 

0.2 

841.8 

01:00-02:00 

b 1 5 . 

1 

172 

0.9 

0.2 

108.5 

O2:oo-o3:oo 

199, 

1 

5 

0 .4 

0.0 

2.  1 

03:ot»-o4:oo 

939. 

1 

202 

1.1 

0.2 

177.2 

04:oo-uS:oo 

269, 

1 

0 

1.1 

0.0 

0.5 

05:00-00:00 

339. 

0 

0 

0.0 

0.0 

0.0 

06:oo-o7  :oo 

942. 

2 

597 

1.5 

0.5 

480.0 

07:00-08:00 

7093. 

4 

1338 

3.1 

0.5 

3748.2 

08:00-00:00 

6272. 

4 

377  1 

3.5 

0.5 

3093.9 

09: 00-10: 00 

90b  1 . 

5 

60  1 1 

4.7 

0.8 

7679.4 

10:00-11:00 

8884. 

5 

4752 

3.0 

0.5 

4579.4 

11:00-12:00 

9532. 

1 1 

b7  1 7 

7.4 

1.3 

12014.1 

I2:oo-i3:ooto2b3, 

1 1 

7178 

11.3 

1.5 

15802.7 

l3:oo-i4:oo 

7130. 

5 

4609 

3.9 

0.7 

4829.4 

l4:oo-iS:oo 

9576. 

5 

©366 

4L.6 

0.8 

7211.3 

15:00-16:001 1 3o7 , 

b 
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PART  Ills  APM  SYSTEM  REPORT 
1.  INTRODUCTION 

The  overall  objective  of  this  project  is  the  develop- 
ment of  an  easy  to  use  interactive  computer  package  whose 
purpose  is  to  translate  improvements  in  airport  facilities  and 
airport  operating  procedures  into  increases  in  the  quality  of 
service  or  level  of  service  provided.  The  model  is  called  the 
Airport  Performance  Model  (APM)  since  it  predicts  how  well  a 
particular  airport  will  perform  in  regard  to  certain  criteria. 


The 

program  consists  of  two  major  segments: 

- 

(1) 

an  airside  segment  which  measures  delays  for 
the  aircraft  and  passengers  in  terms  of  time 
and  dollars;  and 

0 

(2) 

a groundside  segment  which  determines  the 
dimensions  which  a particular  facility  needs 
in  order  to  effectively  handle  passenger  flow. 
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DESCRIPTION  OF  THE  AIRPORT  PERFORMANCE  MODEL 


2.1  Input  To  The  APM 

The  data  base  information  is  airport  and  aircraft 
dependent.  For  each  airport,  the  data  base  contains  2 4 -hour 
demand  profiles  which  give  the  weather,  mix,  arrival-departure 
ratio,  and  a minute-by-minute  demand  profile.  The  data  base 
also  contains  a header  tile  for  the  number  of  VFR  and  IFR  days, 
and  the  volumes  for  the  various  categories  of  scheduled  and 
non-scheduled  traffic.  A static  input  header  file  (for  all 
31  airports  treated  by  the  model)  has  been  created  to  minimize 
the  amount  of  primary  data  gathering  required  during  the  course 
of  this  study.  The  user  is  given  the  ability  to  alter  selectively 
the  input  data  at  different  stages  of  execution.  The  data  is 
then  passed  to  the  different  modules  as  needed. 

2.2  Model  Output 

A statistical  summary  of  the  airside  segment  is  always 
output  by  the  model.  The  user  is  given  a choice  as  to  whether 
or  not  he  desires  an  hourly  breakdown  of  the  airside  segment 
and  the  statistics  which  go  to  make-up  that  segment.  The  user 
is  also  given  a choice  as  to  whether  or  not  he  desires  to  see 
the  groundside  statistics  and  their  hourly  breakdowns. 


3-2 


3 


SUBROUTINES 


Subroutines  (or  subprograms)  serve  useful  functions, 
i.e.,  help  to  reduce  duplicate  coding  areas,  because  they  may 
be  called  throughout  the  program,  they  may  be  checked  out 
easily,  and  they  have  the  potential  of  being  used  by  different 
main  programs.  Since  the  function  of  each  subroutine  may  not 
be  immediately  clear,  it  is  hoped  that  the  brief  explanation 
of  each  subroutine,  and  the  anagrammatic  names  of  the  sub- 
routines and  their  variables  will  be  helpful. 

3.1  APM 

Subroutines  APM  is  the  starting  subroutine  for  the  entire 
model.  Here,  the  user  selects  an  airport,  then  data  is  initialized 
and  the  type  of  analysis  desired  is  input  by  the  user.  Parameters 
that  the  user  is  able  to  change  include  the  volumes  and  mixes 
of  aircraft.  The  groundside  segment  can  also  be  called  from 
this  subroutine. 

3.2  PROCS 

In  subroutine  PROCS,  the  T-table  (a  minimum  acceptance 
interval)  is  read  in  and  calculations  are  performed  based  on 

the  aircraft  mix  in  a particular  hour.  The  resultant  matrix 

* 

takes  into  consideration  a complete  day's  operation  based  upon 
the  percentage  each  type  of  aircraft  in  that  particular  hour. 

The  user  is  given  the  opportunity  to  change  the  processing  rate, 
the  practical  annual  capacity,  or  neither.  When  a daily 
analysis  is  undertaken,  the  weather  profile  is  output  and  the 
user  is  given  the  opportunity  to  change  the  weather  condition 
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in  as  many  hours,  or  none  at  all.  Subroutines  PARAM,  which 
has  various  alrside  and  groundside  parameters,  is  called  from 
this  subroutine. 

3.3  ANULY 

When  the  ANNUAL  type  of  analysis  is  desired,  subroutine 
ANULY  will  be  called.  Here,  the  particular  data  files  which 
characterize  the  selected  airport  are  read. 

Two  sets  of  data  files  are  read: 

(lj  the  "annual  file"  which  has  the  number  of  runs 
or  passes  that  will  occur,  the  scheduled  and  non-scheduled  volume, 
the  non-scheduled  mix,  type  of  weather,  the  number  of  the  profile 
to  be  used,  and  the  weighting  factor  to  be  applied. 

(2)  the  "profile  file"  which  has  the  number  of  the 
profile  (one  to  three)  and  both  a 24-hour  demand  profile  with 
the  scheduled  mix,  arrival-departure  ratio,  the  percent  of 
arrivals  and  departures  for  that  hour;  and  a minute-by-minute 
demand  profile,  in  percents,  for  scheduled  arrivals  and  departures. 

3.4  HJE1 

This  subroutine  removes  the  heavy  jet  effect.  A 
nominal  mix  is  used  to  effect  a new  processing  rate. 

3.5  PTOC 

Subroutine  PTOC  calculates  the  finite  delay  tapacity. 

The  maximum  arrival  demand,  MAD,  and  the  maximum  arrival  capacity, 
MAC,  are  calculated  based  upon  the  processing  rate  and  the  arrival- 
departure  ratio.  Testing  the  relationship  between  AMAC  and  AMAD, 
and  also  the  size  of  the  arrival-departure  ratio  will  determine 
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which  equation  will  be  used  in  finite  delay  computation 


3.6  MIXNJ 

Subroutine  MIXNJ  calculates  mix  numbers  based  on  a 
nominal  mix. 

3.7  PANCAP 

In  subroutine  PANCAP,  the  Practical  Annual  Capacity 
(PANCAP)  is  caluclated.  After  the  airside  processing  rate  for 
each  weather  category  has  been  converted  to  the  finite  delay 
capacity,  the  peaking  factor  (which  is  a percent  of  daily 
activity  during  the  peak  hour  of  the  day,  averaged  for  the 
two  busiest  consecutive  hours)  is  checked  to  determine  whether 
or  not  it  is  within  set  limits.  A ratio  of  the  hourly  capacity 
versus  the  annual  capacity  is  calculated.  That  ratio  and  the 
finite  delay  capacity  will  determine  tie  Practical  Annual 
Capacity  (PANCAP) . 

If  the  PANCAP  figure  has  been  input  by  the  user,  this 
subroutine  will  calculate  the  finite  delay  capacity  based  upon 
the  aforementioned  ratio  and  the  peaking  factor.  See  AC  150/5060- 
1A,  Appendix  2,  Figure  9,  page  28. 

3.8  PARAM 

Subroutine  PARAM  lists  the  parameters  for  the  airside 


segment  and  the  groundside  segment  of  the  model.  Characteristics 
which  pertain  to  aircraft  costs  and  consumption,  passenger 
arrival-departure  modes,  and  employee  arrival -departure 


distributions,  are  shown  to  the  user.  The  subroutine  list 
will  be  given  to  the  user,  with  a minimum  of  interaction, 
and  it  will  apply  to  all  airports  in  the  system. 

3.9  QDLY 

Subroutine  QDLY  calculates  delay  for  both  arriving 
and  departing  aircraft.  A minute-by-minute  demand  profile 
for  the  aircraft  is  processed  on  a first-come,  first-served 
basis.  Delay  is  the  difference  between  the  time  an  aircraft 
enters  the  system  and  the  time  it  would  have  entered  the 
system  had  there  been  no  congestion.  Aircraft  enter  the  system 
at  the  beginning  of  a minute.  When  arrivals  and  departures 
enter  their  respective  queues  at  the  same  time,  an  arrival 
is  processed  before  a departure.  The  remaining  aircraft  are 
processed  alternately  until  the  queues  are  empty.  There  is  a 
minimal  acceptance  time  (between  the  various  combinations  of 
arriving  and  departing  aircraft  in  each  hour)  which  goes  into 
the  delay  computation.  This  minimal  acceptance  time  has  been 
previously  calculated. 

The  gate  module  is  called  from  this  subroutine. 

3.10  A I ROUT 

This  subroutine,  AIROUT,  is  essentially  the  output 
portion  of  the  airside  segment  of  the  model.  Here,  the  desired 
delay  statistics  for  arrival  and  takeoff  aircraft,  gate  delays, 
and  amounts  of  pollutants  emitted  are  printed.  A summary 
listing  is  always  generated,  but  the  user  has  an  option  of 
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seeing  an  hourly  breakdown  of  each  of  the  statistical  areas 
of  interest. 
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4.  COST  MODULE 

4.1  Description  of  the  Cost  Module 

The  purpose  of  the  Cost  Module  is  to  translate,  into 
dollars  and  cents,  any  aircraft  delays  (on  arrival,  on  takeoff, 
at  the  gate,  and/or  to  passengers  on  the  aircraft) . Delays 
waste  time  and  money.  The  extra  time  that  an  aircraft  is 
delayed  will  run  up  direct  operating  costs  in  extra  fuel  con- 
sumption and  crew  cost.  Passenger  dissatisfaction  with  delays 
can  lead  to  a lower  average  seating  capacity  in  each  type  of 
aircraft  class.  An  important  part  of  the  calculations  for  the 
Cost  Module  are  the  hourly  traffic  characteristics  at  each 
airport,  i.e.,  the  mix  of  aircraft  types,  the  average  seating 
capacity  of  each  type  of  aircraft  mix,  gate  hold  procedures, 
the  number  of  aircraft  in  each  hour  and  the  number  of  aircraft 
that  are  able  to  be  processed  (perhaps  due  to  the  weather) . 

4 . 2 Assumptions  of  the  Cost  Module  (Air  Delay) 

The  operating  costs  of  air  delay  are  broken  down  into 
the  following  categories:  crew,  fuel  and  oil,  airframe 
maintenance,  engine  maintenance,  and  burden.  The  costs  for 
the  five  categories  are  subdivided  for  the  aircraft  types  used 
in  the  model  and  similarly  used  in  the  various  modules  of  the 
APM. 

Crew  costs  increase  with  airborne  delay  because  crew 
costs  are  commonly  paid  by  block  time,  which  is  affected  by 
airborne  delay. 

3-8 


I 


: 


I 


} I 


f 


Fuel  and  oil  costs  are  an  average  of  the  ground  and 
airborne  costs  divided  by  the  total  hours . The  total  cost 
includes  the  higher  fuel  consumption  of  take-off  and  climb, 
as  well  as  the  lower  fuel  consumption  of  taxi,  which  together 
bracket  the  desired  fuel  consumption  rate  for  holding. 

Maintenance  costs  are  included  because  maintenance 
is  usually  based  on  engine  hours  and/or  flying  hours. 

The  cost  of  lost  passenger  time  due  to  air,  gate  and 
take-off  delays  depends  upon  the  number  of  passengers  aboard 
the  aircraft  and  the  value  of  the  passenger  time.  In  the  APM, 
the  value  of  the  passenger  time  has  been  assumed  to  be  $12.50 
per  hour,  on  the  average.  The  actual  average  value  of  passenger 
time  varies  widely  with  trip  purpose,  aircraft  type,  origin, 
destination,  time  of  day,  etc.,  but  the  figure  ($12.50) 
corresponds  to  the  current  (1976)  nominal  value  employed  in 
FAA  and  DOT  air  transport  benefit  studies. 

4.3  Assumptions  of  the  Cost  Module  (Gate  Delays) 

Aircraft  that  have  landed  and  are  delayed  in  docking 
incur  the  same  costs  as  those  waiting  to  land,  except  that 
engine  speed  is  reduced  to  idle.  As  a result,  fuel  and  oil 
costs  and  engine  maintenance  costs  are  lower;  both  are  reduced 
by  the  ratio  of  idle  fuel  consumption  to  approach  fuel  consumption. 

Gate  arrival  delay  costs  are  not  calculated  for 
small  type  aircraft  because  these  vehicles  generally  unload 
on  aprons  and  ramps  where  congestion  is  not  ordinarily  a factor. 
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When  gate  hold  procedures  are  in  effect  because  of 
departure  runway  delays,  it  is  assumed  that  aircraft  will 
sustain  no  more  than  10  minutes  of  delay  Cat  full  idle  power) 
prior  to  departure. 

When  gate  hold  procedures  are  not  in  effect,  it  is 
assumed  that  aircraft  operate  at  full  idle  power  for  the  first 
10  minutes  and  at  half  idle  power  thereafter. 

4.4  Input  to  the  Cost  Module 
Input  tables  represent: 

(1)  the  operating  costs  affected  by  air  delay  by 
aircraft  type, 

C2)  aircraft  operating  costs  affected  by  gate  arrival 
and  takeoff  delays , and 

(3)  seating  capacity  for  aircraft  type. 

Input  to  the  Cost  Module  includes  aircraft  mix  and  load  factors, 
and  delays  for  aircraft  arriving,  departing  and  at  the  gate, 
including  whether  or  not  gate  hold  procedures  are  in  effect. 

4 . 5 Output  of  the  Cost  Module 
In  the  summary  portion  of  the  air side  segment  output, 

the  following  statistics  are  printed:  aircraft  and  passenger 
hours  delayed  in  landing,  take-off  and  at  the  gate;  aircraft 
and  passenger  dollars  due  to  those  delays;  and  the  total  dollar 
value  of  delays  to  the  landing,  take-off  and  gate  portion  of 
the  program. 
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Subroutine  DCOST  calculates  the  aircraft  and  paaaenger 


delay  statistics  which  occur  at  the  gate,  and  during  landing 
and  take-off.  It  also  calculates  their  dollar  values  individually 
and  totally.  The  data  statements  contain  the  seating  capacity, 
aircraft  operating  costs  affected  by  air  delay,  and  total 
aircraft  operating  costs  affected  by  take-off  delays  for  the 
first  10  minutes  and  thereafter.  The  time  parameters  in  the 
calling  sequence  are  in  seconds,  but  are  converted  to  minutes 
in  the  subroutine.  The  equations  are  affected  by  the  airport 
load  factor  and  whether  or  not  gate  hold  procedures  are  in 
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POLLUTION  MODULE 


Description  of  the  Pollution  Module 

Whether  an  aircraft  is  idling,  taxiing,  or  is  at 
liftoff,  climbout  or  approach,  energy  is  being  consumed  and 
pollutants  are  entering  the  atmosphere.  The  prime  area  of 
concern  is  the  airport  and  its  immediate  vicinity  because  this 
is  the  area  in  which  the  pollution  level  and  energy  consumption 
will  be  the  greatest  (most  concentrated) . A static  file 
named  ENGEM.DAT  is  read  in  the  Cost  Module.  The  file  contains: 
the  time  for  each  type  of  aircraft  for  arrival  and  departure, 
for  energy  consumed  during  idle,  taxi,  liftoff  and  ascent  to 
and  descent  from  3000  feet;  as  well  as  emission  levels  (10  3/lbs- 
fuel)  during  idle,  approach,  climbout  and  taxi.  The  pollution 
and  energy  consumption  levels  are  affected  by  number  of  aircraft 
in  each  hour,  the  type  of  aircraft  (mix)  in  each  hour,  and 
whether  or  not  gate  hold  procedures  are  in  effect. 

5.2  Input  to  the  Pollution  Module 

The  data  file  ENGEM  is  read  in  the  Cost  Module. 

Included  in  the  calling  sequences  are  aircraft  mix,  arrivals 
and  departures,  amount  of  delay,  whether  or  not  gate  hold 
procedures  are  in  effect,  the  number  of  aircraft  delayed  ten 
(10)  minutes  or  more,  and  arrival  and  departure  sums  for  aircraft 
delayed  less  than  and  greater  than  ten  (10)  minutes. 

5.3  Output  for  the  Pollution  Module 

When  the  return  is  generated  to  subroutine  AIROUT, 
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the  calculations  for  arrival,  departure,  gate  and  an  hourly 
breakdown  of  pollutants  (total  and  excess)  take  place.  In 
the  summary  portion  of  the  printout,  the  various  amounts  of 
pollutants  and  energy  consumed,  both  total  and  excess,  are 
printed  in  tons  and  dollar  amounts.  The  user  is  then  given 
the  option  to  see  either  one  or  both  of  the  hourly  breakdowns 
of  the  pollution  or  energy  consumption. 

5.4  EMIS  (Pollution) 

In  subroutine  EMIS  and  its  associated  subroutines, 
the  amount  of  energy  consumed  and  the  amount  of  pollutants 
emitted  into  the  atmosphere  are  calculated.  ENGEM.DAT  is 
a data  file  containing:  (1)  the  times  of  ascent  to  and 
descent  from  3000  feet;  (2)  the  energy  consumed  during  a 
minute  of  approach,  idle,  takeoff  and  climbout  for  each  aircraft 
type;  and  (3)  the  emission  levels  during  idle,  approach 
climbout  and  take  off.  EMIS  calls  INITIAL,  POLENG  and  DEPCALC. 
Subroutines  POLLUTION,  INITIAL  and  POLENG  are  part  of  the 
EMIS.F4  file,  while  DEPCALC  is  the  DEPRT.F4  file. 

Subroutine  INITIAL  calculates  variables  which  need 
to  be  calculated  once  for  use  in  a number  of  other  equations. 
These  calculations  include  the  amount  of  fuel  consumed  in 
descending  from  3000  feet,  fuel  consumed  during  taxi  for 
arrivals  and  departures,  fuel  consumed  at  liftoff  and  the  fuel 
consumed  ascending  to  3000  feet.  Pollutants  emitted  into  the 
atmosphere  are  also  calculated  for  the  same  kind  of  parameters, 
i.e.,  ascent  to  and  descent  from  3000  feet,  taxi  period  for 
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arrivals  and  departures,  one  minute  of  idle  time,  and  emissions 
produced  at  liftoff. 


Subroutine  POLENG  calculates  arrival  values  for  fuel 
consumption  and  pollutants  emitted.  For  each  hour,  the  values 
of  energy  and  pollutants  are  calculated,  at  the  gate,  for 
delays  less  than  and  greater  than  ten  minutes,  taxi  delays 
and  air  delays. 

5.5  DEPRT  (DEPCALC) 

In  subroutine  DEPRT,  the  departure  calculations  are 
performed  for  energy  consumption  and  pollutants  emitted.  The 
pollution  calculations  will  depend  on  whether  or  not  the  gate 
hold  procedure  option  is  in  effect.  Pollution  and  energy 
consumption  for  each  hour  of  the  day  are  calculated  for  aircraft 
at  idle,  taxiing,  liftoff  and  climbout  to  3000  feet. 
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GROUNDSIDE  PORTION  OF  THE  APM 


6.1  Introduction 

A major  segment  of  the  Airport  Performance  Model  (APM) 
is  the  groundside  section,  which  is  actually  a model  in  itself. 

In  the  groundside  model,  terminal  and  access  facility  requirements 
are  calculated  through  a series  of  equations  that  are  driven  by 
aircraft  arrivals  and  departures. 

The  groundside  calculations  and  printouts  are  per- 
formed by  two  subroutines;  GNDCAL  and  GNDOUT . Control  is  switched 
to  these  routines  by  a calling  sequence  in  the  main  program  (APM) . 
The  groundside  model  can  be  utilized  for  either  daily  runs  or 
annualization  runs  depending  upon  the  control  asserted  by  the  user. 

Daily  runs  dictate  that  the  groundside  calculations 
and  printouts  are  performed  for  each  day  in  which  data  is  input. 

For  example,  if  30  days  of  data  are  used  in  the  APM  program,  30 
separate  days  of  calculations  and  printouts  are  computed  by  the 
groundside  model. 

Annualization  runs  differ  from  daily  runs  in  that  only 
one  printout  results  regardless  of  the  number  of  days  of  data  that 
the  APM  program  uses.  The  calculations  for  each  day  of  data  are 
still  computed,  however  the  contents  of  the  printout  consist  of 
the  maximum  values  of  all  calculations  for  all  days  of  data.  For 
example,  if  30  days  of  data  are  used  by  the  APM  program,  each  day 
will  produce  results  from  the  calculations  of  the  equations  in 
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the  model.  However,  from  the  30  sets  of  calculations,  only  the 
maximum  values  ascertained  over  the  30  days  are  combined  to  yield 
one  printout. 

6. 2 Subroutines 

6.2.1  GNDCAL 

As  previously  mentioned,  GNDCAL  is  driven  by  aircraft 
arrivals  and  departures.  These  figures  are  passed  to  GNDCAL  from 
the  main  program  where  it  is  input  from  an  external  file. 

Additionally,  several  parameters  are  used  in  the  system 
of  equations  which  make  up  the  groundside  model . Some  of  these 
parameters  are  read  from  a file  external  to  the  APM  program,  while 
the  others  are  contained  in  DATA  statements.  Those  parameters 
residing  in  the  external  file  (FOR25)  are  read  in  the  main  program 
and  set  in  COMMON  blocks  common  to  GNDCAL.  The  DATA  statements 
are  located  in  GNDCAL. 

Only  the  calculations  for  the  groundside  model  are  per- 
formed by  GNDCAL.  Printing  is  done  in  a separate  routine,  GNDOUT . 

The  programming  flow  of  GNDCAL  is  straightfoward.  After 
initialization  of  variables  is  done,  hourly  enplanements  and 
deplanements  are  calculated.  They  are  then  used  to  calculate  the 
hourly  terminal  facility  requirements  for  the  airport:  main  lobby 
area,  main  lobby  seats,  ticket  counter  frontage,  ticket  counter 
area,  baggage  claim  area,  and  the  length  of  the  baggage  claim  belt. 
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Access  facility  requirements  (parking,  curb  and 
access/egress  requirements)  are  calculated  next.  Again,  hourly 
enplanements  and  deplanementa  are  driving  functions  for  the 
equations.  The  outputs  of  importance  are:  hourly  short-term 
parking  slot  requirements;  long-term  parking  slot  requirements; 
the  number  of  employees  required;  hourly  employee  parking  slot 
requirements ; long-term  parking  space  requirements  over  and  above 
spaces  taken  at  the  end  of  the  day;  net  increase  in  long-term 
parking  spaces  at  the  end  of  the  day;  hourly  enplanement  and 
deplanement  curb  space  requirements;  and  hourly  requirements  for 
inbound  and  outbound  (access  and  egress)  lanes  of  highway.  Inbound 
and  outbound  lanes  of  highway  are  rounded  up  to  the  nearest  integer. 
Peak  values  are  calculated  from  the  hourly  requirements. 

Upon  completion  of  the  calculations,  GNDOUT  is  called 
and  the  results  are  printed  and  control  is  returned  to  the  main 
program.  This  process  is  followed  for  daily  runs.  If  annualization 
runs  are  being  processed,  GNDCAL  compares  the  results  of  the 
calculation  just  computed  for  that  day  with  the  previously  selected 
maximum  calculations  of  preceding  days.  New  maximum  values  are 
obtained  if  they  exist.  Upon  completion  of  the  calculations  for 
the  final  day  in  an  annualization  run,  GNdOUT  is  called  for  printing. 
This  printing  reflects  only  the  maximum  values  ascertained  from 
all  days  processed. 


3-17 


6.2.2 


GNDOUT 


GNDOUT  performs  all  printing  for  the  groundside  model. 

It  is  called  by  GNDCAL  after  each  day  is  processed  (daily  runs 
only)  or  at  the  end  of  the  processing  of  the  last  day  (annualization 
runs)  . 

The  printout  appears  in  two  forms:  hourly  requirements, 
and  the  peaks  of  the  hourly  requirements.  The  peaks  reflect  the 
maximum  value  of  the  output  over  a span  of  24  hours,  while  the 
hourly  requirements  are  the  full  compliment  of  output  over  24 
hours . 

The  hourly  requirements  are  divided  into  three  categories : 
terminal  facility  requirements,  access  facility  requirements,  and 
passenger  movements.  Each  division  is  optional  and  controlled 
through  the  dialogue  between  the  user  and  the  program. 
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